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INTRODUCTION 


In  order  to  monitor  atmospheric  infrasonic  waves  in  the  passband  from  0.1 
to  0.01  Hz  a  digital  infrasonic  detection  system  was  installed  in  Antarctica 
on  the  Ross  Ice  Shelf »_~lat  77*' 44*  43“  S,  167*  35'  15"  E)  near  McMurdo  Station 
on  McMurdo  Sound. 

An  array  of  seven  infrasonic  microphones  subtending  an  area  of  about  35 
square  kilometers  was  operated  in  Windless  Bight  with  power  supplied  for  the 
array  electronics  by  a  radioisotope  thermoelectric  (RTG)  generator  on  loan 
from  the  Navy.  The  analogue^  microphone  data  was  telemetered  at  VHP  a  distance 
of  14  miles  to  McMurdo  station  where  the  infrasoniCvObservatory  building  was 
located.  The  infrasonic  tiata  were  digitized  and  subjected  to  on-line  real¬ 
time  analysis  to  detect  traveling  infrasonic  waves  with  periods  from  10  to  100 
seconds.^  The  raw  data  as  well  as  the  signal -search  analysis  results  were  all 
recorded  on  digital  magnetic  tape  for  archiving  and  subsequent  additional 
analysis  of  special  events  and  suspected  signal  times. 

In  Antarctica  the  equipment  was  operated  by  a  wintering-over  electronic 
technician  who  also  performed  signal  search  and  analysis  upon  request.  Each 
Antarctic  summer  the  seven  microphones  were  dug  up  from  the  winter's 
accumulation  of  snow,  placed  on  the  new  snow  surface  and  recalibrated.  During 
the  years  of  operation  of  the  infrasonic  system  in  Windless  Bight  it  was  also 
necessary  to  dig  up  the  RTG  building  to  prevent  its  being  lost  under  drifting 
snows. 

During  the  period  of  operation  of  the  Antarctic  infrasonic  observatory, 
hundreds  of  infrasonic  signals  were  detected  in  association  with  many  natural 
sources  such  as  the  aurora  australis,  marine  storm  sea-air  Interactions, 
volcanic  eruptions,  mountain  generated  lee-wave  effects,  large  meteors  and 
auroral  electrojet  supersonic  motions.  Weekly  summary  sheets  of  all  detected 


infrasonic  signals  were  sent  by  telegram  from  Antarctica  during  the  winter 
night  to  the  Geophysical  Institute  for  forwarding  to  the  Air  Force  Office  of 
Scientific  Research. 

All  the  digital  infrasonic  data  tapes  are  archived  at  the  Geophysical 
Institute  at  the  University  of  Alaska  in  Fairbanks,  Alaska. 

A  summary  of  the  reports  written  during  the  period  of  the  contract  is 
given  in  the  next  section.  A  complete  technical  description  of  the  infrasonic 
equipment,  its  hardware  and  software  conponents,  its  operation  and  calibration 
techniques  and  the  real-time  signal  search  programs  are  given  by  engineer 
Bruce  N.  McKibben  in  the  final  section  of  this  report. 

SUMMARY  OF  PREVIOUS  CONTRACT  REPORTS 

Progress  Report:  GIR  82-1 
October  1,  1981  -  April  30,  1982 
Antarctic  Digital  Infrasonic  System  Upgrade 

A  description  is  given  by  B.  David  Spell  in  the  first  section  of  this 
report  of  the  upgraded  digital  data  acquisition  and  analysis  system  that  has 
been  inproved  in  order  to  provide  on-line  pure-state  filtering  of  the 
infrasonic  microphone  array  data.  The  implementation  of  Dr.  John  V.  Olson's 
pure-state  filtering  technique  was  done  in  the  new  system  by  Mr.  Spell  in 
software,  freeing  our  second  Digital  POP  11/03  microprocessor  for  use  in  off¬ 
line  analysis  by  the  winter-over  operator  of  selected  signals. 

In  the  second  section  Dr.  Olson  describes  the  software  he  has  provided 
for  off-line  analysis  including:  Beam-Steer/Detection  Algorithms,  Data 
adaptive  filters.  Array  diagnostic  routines,  and  Time  series  analysis  codes. 
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The  data  handling  procedures  are  described  in  the  third  section  using  as 
an  example  the  infrasonic  waves  from  the  29  March  1°82  eruption  of  El 
Chichonal  Volcano  in  Mexico  as  detected  by  our  digital  system  in  Antarctica. 

A  brief  report  is  provided  in  the  last  section  of  the  enhancement  in  the 
number  of  signals  detected  as  a  result  of  on-line  pure  state  filtering. 

A  listing  of  all  the  software  used  in  the  operating  system  and  for  off¬ 
line  analysis  is  given  in  the  appendix. 

Progress  Report:  GIR  82-2 
May  24,  1982 

Windless  Bight  Wind  Noise  Analysis;  and  15  Dec.  1980,  27  Feb.  1981, 

6  March  1981  Infrasonic  Signal  Search 

It  was  requested  by  AFOSR/NP  that  an  analysis  be  made  of  the  wind  noise 
levels  at  the  Windless  Bight- inf rasonics  array  using  the  digital  data  from 
1981.  This  analysis  of  the  RMS  wind  noise  levels,  as  discussed  in  section  A 
of  this  report,  has  shown  that  in  the  F  array  passband  (10  to  100  sec  periods) 
the  yearly  average  RMS  wind  noise  level  is  1.07  microbars  while  in  the  T  array 
passband  (1  to  10  sec  periods)  the  RMS  yearly  average  is  0.30  microbars  for 
local  wind  noise.  More  than  14.5  million  pressure  values  at  one  second 
intervals  were  averaged  in  obtaining  these  RMS  values.  The  very  low  values  of 
average  RMS  wind  noise  level  at  Windless  Bight  confirm  that  it  is  an  excellent 
site  for  the  Antarctic  infrasonics  observatory. 

Sections  B  and  C  of  this  report  are  in  response  to  a  request  by  AFOSR/NP 
for  a  detailed  analysis  of  an  Infrasonic  signal  observed  on  15  December  1980 
and  for  a  search  for  possible  signals  at  Windless  Bight  on  28  February  1981 
and  6  March  1981.  The  on-line  time-domain  analysis  of  these  events  is 
described  in  section  B  while  the  off-line  frequency-domain  analysis  is 


discussed  in  section  C. 


It  was  found  that  the  15  December  1980  event  produced  an  excellent  signal 
while  no  discernible  signal  was  observed  from  either  the  February  or  March 
1981  events. 

Final  Progress  Report  GIR  82-3 
1  October  1981  to  30  Sept.  1982 
Antarctic  Atmospheric  Infrasound 

The  infrasonic  observatory  at  Windless  Bight,  Antarctica  was  operated 
conti nuusly  during  the  period  of  1  October  1981  to  30  September  1982  as 
covered  by  this  report.  The  infrasonic  microphone  outputs  from  a  four  sensor 
long  period  (10  to  100  sec)  array  and  a  three  sensor  short  period  (1  to  10 
sec)  array  were  digitized  (at  1  Hz  and  4  Hz  respectively),  recorded  and 
analyzed  in  real-time  by  the  digital  data  acquisition  and  analysis  system  as 
described  by  Spell  et  al.,  in  our  progress  report  GIR  82-1  entitled:  Antarctic 
Digital  Infrasonic  System  Upgrade”.  Analogue  chart  and  slow  speed  magnetic 
tape  data  were  also  recorded  for  backup  purposes. 

The  digital  magnetic  tapes  for  the  period  of  this  report  are  archived  at 
the  Geophysical  Institute  of  the  University  of  Alaska  beginning  with  tape  M81- 
35,  2319  -  24  September,  1981  to  1228Z  -  1  October  1981  to  tape  M81-51,  0517Z 
-  26  December  1981  to  0807Z  -  1  January  1982  to  2036Z  -  7  January  1982  to  tape 
M82-47,  0328  26  September  1982  to  0155Z  2  October  1982.  Infrasonic  summary 
reports  of  all  signals  with  correlation  coefficient  greater  than  0.50  have 
been  sent  from  Antarctica  to  the  Geophysical  Institute  by  telex  for  each 
digital  tape  beginning  with  M82-2  0459Z  4  February  1982  to  0134Z  10  February 
1982.  Copies  of  these  infrasonic  signal  reports  for  each  digital  tape  have 
been  sent  to  Mr.  William  J.  Best  at  AFSR/NP  at  Bolling  Air  Force  Base. 


After  initial  electrical  noise  interference  problems  were  corrected  at 
the  equipment  building  in  McMurdo  station  in  early  February  1982  there  was  no 
significant  data  loss  for  the  infrasonic  system.  During  the  winter  night  the 
Aurora  microphone  oscillator  failed  out  in  Windless  Bight.  The  winter-over 
operator,  Bruce  McKibben,  made  a  trip  out  to  the  microphone  array  by  tracked 
vehicle  on  July  17  to  replace  the  faulty  oscillator  and  recalibrated  the 
aurora  microphone. 

During  the  winter  night  period  in  Antarctica,  Bruce  McKibben,  adapted  the 
off-line  analysis  and  filtering  software  that  had  been  developed  at  the 
Geophysical  Institute  on  a  large  virtual  memory  computer  (the  VAX  1778)  for 
use  on  a  much  smaller  and  slower  computer  the  PDP  11/03  that  is  used  in  our 
system  at  McMurdo  station.  This  off-line  analysis  software  is  reproduced  in 
section  III  of  this  report. 

Training  of  the  new  winter-over  operator,  Kathleen  Driscoll,  began  in 
July  1982  at  the  Geophysical  Institute  and  continued  in  Antarctica  under  the 
guidance  of  Mr.  McKibben  on  site  through  November  17th  when  he  left  McMurdo 
station  for  home.  Kathleen  Driscoll  is  an  electronic  technician  with  12  years 
experience  at  the  University  of  Alaska  and  at  remote  sites  in  the  Canadian 
arcti c. 

In  Section  1  of  this  report,  Jefferson  Collier,  a  graduate  student 
working  on  the  analysis  of  Antarctic  infrasonic  data,  described  the  results  of 
the  analysis  of  microbarom  data  from  the  short  period  microphone  array  at 
Windless  Bight  for  all  1981  data.  Mr.  Collier  is  supported  by  NSF/DPP  under 
grant  number  DPP  8120794  for  the  analysis  of  Antarctic  microbarom  data. 

In  Section  II,  Dr.  John  Olson  describes  the  results  of  his  research  on 
infrasonic  data  analysis  as  presented  at  the  European  Geophysical  Society 
meeting  at  Leeds,  England  in  August  1982  at  a  special  symposium  on  the 


"Filtering  Analysis  in  Geophysics"  that  Dr.  Olson  was  asked  to  chair  because 
of  his  extensive  contributions  in  this  field.  His  paper  as  herein  reproduced 
is  titled:  “Signal  Detection  in  Scalar  Arrays"  Application  of  Adaptive,  Pure- 
State  Filters  to  Infrasonic  Array  Data". 

Logistical  support  for  the  Antarctic  infrasonics  program  has  been  given 
by  the  Division  of  Polar  Programs  of  National  Science  Foundation  under  a  three 
year  grant  number  DPP  81-21669. 

Final  Progress  Report  GIR  83-1 
May  1983 

Antarctic  Infrasonic  System  Software 

All  the  conputer  programs  used  in  the  Antarctic  infrasonic  digital  system 
are  described  and  listed  in  this  report  for  the  data  acquisition ,  data 
retrieval  and  off-line  analysis  sub  systems. 

Final  Progress  Report  GIR  83-2 
June  1983 

Report  on  Search  for  an  Infrasonic  Signal  at 
Windless  Bight,  Antarctica  from  May  11,  1983 
Event  at  14°S  1.5°W 

A  request  was  received  from  AFOSR  to  search  for  a  signal  from  14°S,  1.5°W 
at  1112  Z  on  May  11,  1983  in  the  Antarctic  infrasonic  wave  data  from  Windless 
Bight  station.  In  spite  of  the  low  wind  noise  level  no  signal  was  found  in 
the  appropriate  time  interval  from  the  azinuth  of  the  expected  source. 


This  report  describes  the  search  procedure  and  signal  analysis  in  both 
the  time  and  frequency  domains  for  the  data  set.  A  conparison  signal  from  the 
eruption  of  Galunggung  volcano  in  Java  as  detected  on  a  very  windy  day  at 
Windless  Bight  is  given  to  illustrate  the  identification  process. 

All  the  programs  referred  to  In  this  report  (STATS,  SCAN,  FKDET,  SPCTRM) 
are  described  in  our  report  GIR  83-1,  May  1983,  titled  Antarctic  Infrasonic 
System  Software,  by  Bruce  N.  McKibben. 

Final  Progress  Report  GIR  83-3 
December  1983 

Annual  Report:  Antarctic  Atmospheric  Observations 
The  infrasonic  observatory  at  Windless  Bight,  Antarctica  was  operated 
continuously  during  the  period  of  1  October  1982  to  30  September  1983  as 
covered  by  this  report.  The  Infrasonic  microphone  outputs  from  a  four  sensor 
long  period  (10  to  100  sec)  array  and  a  three  sensor  short  period  (1  to  10 
sec)  array  were  digitized  (at  1  Hz  and  4  Hz  respectively),  recorded  and 
analyzed  in  real-time  by  the  digital  data  acquisition  and  analysis  system  as 
described  by  Spell  et  al.,  in  our  progress  report  GIR  82-1  entitled:  Antarctic 
Digital  Infrasonic  System  Upgrade".  Analogue  chart  and  slow  speed  magnetic 
tape  data  were  also  recorded  for  backup  purposes. 

The  digital  magnetic  tapes  for  the  period  of  this  report  are  archived  at 
the  Geophysical  Institute  of  the  University  of  Alaska  beginning  with  magnetic 
tape  MT82-47  (26  September  -  2  October  1982)  and  ending  with  tape  MTB3-51  (27 
September  -  2  October  1983).  Infrasonic  summary  reports  of  all  signals  with 
correlation  coefficients  greater  than  0.50  have  been  sent  from  Antarctica  to 
the  Geophysical  Institute  by  telex  for  each  digital  tape.  Copies  of  these 


infrasonlc  signal  reports  for  each  digital  tape  have  been  sent  to  Mr.  William 
J.  Best  at  AFOSR/NP  at  Bolling  Air  Force  Base.  There  was  no  significant  data 
loss  for  the  period  covered  by  this  report. 

During  the  austral  summer  field  season  a  new  survey  of  the  7  microphone 
array  in  Windless  Bight  was  made  using  an  electronic  distance  meter.  The  up¬ 
dated  coordinates  of  the  microphones  are  given  in  the  following  figure  and 
table  for  January  1983.  The  error  in  closure  of  the  20  kilometer  traverse  in 
the  survey  was  only  2.0  cm  so  the  accuracy  of  the  site  determination  is  within 
one  meter.  The  geographical  coordinates  of  the  RTG  site  are.  Latitude:  77* 

44*  43.4  S,  Longitude  167*  35'  15.2  E. 

Kathleen  Driscoll,  an  electronic  technician  from  the  Geophysical 
Institute,  has  wi ntered-over  at  McMurdo  Station,  Antarctica,  operating  the 
infrasonic  equipment  from  the  period  November  1982  to  the  present  time.  She 
has  done  an  excellent  job  of  routing  operation  of  the  system,  maintenance  of 
the  microphones  and  telemetry  in  the  field  sites  and  of  off-line  data  analysis 
in  response  to  special  requests  from  AFOSR. 

In  Section  I  of  this  report,  John  V.  Olson,  describes  the  detection  and 
filtering  of  the  signals  in  scalar  arrays.  He  reviews  several  techniques  used 
in  the  University  of  Alaska  Infrasonic  Program  to  analyze  digital  data  from  an 
array  of  microphones.  All  of  the  techniques  described  are  based  upon  a  simple 
and  compact  state-vector  representation  of  signals  from  arrays  of  sensors. 

The  construction  of  state-vectors  and  the  spectral  matrix  is  discussed  for 
arbitrary  signals.  These  ideas  lead  naturally  to  a  frequency  domain  detection 
algorithm  which  is  simple  to  Implement.  The  detection  scheme  is  shown  to  be 
equivalent  to  the  traditional  "f-k"  analysis.  Finally,  he  shows  the 
application  of  the  state-detectors  In  the  frequency  domain  to  the  filtering  of 
data.  Filters  can  easily  be  constructed  which  are  sensitive  to  the  azimuth  of 
certain  signal  arrivals  and  which  reject  signals  from  other  directions. 
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In  Section  II,  Dr.  Olson,  gives  estimates  of  the  energy  release  of  recent 
volcanic  eruptions  using  Windless  Bight  infrasonic  data  as  an  exarrple  of  the 
type  of  analysis  that  is  possible  with  the  Antarctic  digital  infrasonic  data. 

In  Section  III,  exanples  are  given  from  the  1982-83  Antarctic  infrasonic 
data  of  the  off-line  analysis  of  natural  infrasonic  signals  observed  at 
Windless  Bight.  The  examples  shown  in  this  section  of  power  spectra  and 
slowness-azimuth  diagrams  for  microbaroms,  mountain  associated  infrasonic 
waves  and  auroral  infrasonic  waves  were  all  analyzed  in  Antarctica  by  Kathleen 
Driscoll  and  sent  by  telex  to  the  University  as  examples  of  what  further 
analysis  can  be  done  for  special  events  in  addition  to  the  time  domain 
detection  that  is  done  routinely. 

In  Section  IV  of  this  report,  B.  David  Spell  describes  the  installation 
of  a  digital  data  acquisition  and  analysis  system  on  the  Waramunga  infrasonic 
array  near  Tennant  Creek,  Australia.  In  November  1983,  Bruce  McKibben,  on  the 
way  to  winter-over  in  Antarctica  for  his  second  season  at  McMurdo  Station, 
visited  the  Waramunga  infrasonic  array  to  install  filter  amplifiers  in  the 
system  to  make  the  pass  band  characteristics  of  the  Antarctic  and  Australian 
arrays  identical.  On  18  November  1983,  the  Waramunga  array  with  the  standard 
N-6  (1  to  10  sec)  and  N-7  (10-100  sec)  pass  band  filters  became  operational. 
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Estimation  of  the  Energy  of  Atmospheric  Explosions 
Using  the  Infrasonic  Array  at  Windless  Bight,  Antarctica 
We  developed  In  this  report  a  method  by  which  the  energies  of  atmospheric 
explosions  may  be  estimated  using  data  collected  with  the  Infrasonic  array 


located  at  Windless  Bight,  Antarctica.  Because  of  the  bandpass 
characteristics  of  the  data  acquisition  system,  previous  techniques  for 
estimating  explosion  energies  were  judged  to  be  not  suitable  for  our 
applications.  Instead,  a  method  was  developed  which  incorporates  what  is 
known  about  global  acoustic-gravity  wave  propagation  and  observations  of  other 
known  atmospheric  explosions.  Through  application  of  pure  state  filtering 
techniques  to  geophysical  data,  we  believe  that  explosions  equivalent  to 
several  tens  of  kilotons  of  TNT  at  ranges' of  a  few  thousand  km  should  be 


detectable. 
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Chapter  1 

INTRODUCTION  TO  INFRAS0NIC9 


Infrasound  is  sound  with  a  frequency  that  is  below  the  range  of  huaan 
hearing.  In  all  other  respects  it  is  the  same  as  audible  sound:  it  travels  at 
the  saee  velocity,  it  requires  a  aediua  for  propogation  (such  as  air),  and  it 
is  eade  up  of  periodic  pressure  variations  in  the  propogation  aediua.  At 
Windless  Bight  there  are  two  infrasonic  arrays  which  are  designed  to  detect 
signals  froe  two  passbands.  The  large  array  (also  known  as  the  “N-7"  or  "F" 
array)  consists  of  four  eicrophones,  each  spaced  about  four  eiles  apart  froa 
one  another.  This  array  will  detect  signals  with  periods  froa  7  to  70 
seconds.  The  saall  array  (also  known  as  the  *N-&*  or  "T"  array)  also  consists 
of  four  aicrophones,  however  these  have  a  spacing  of  about  700  aeters.  This 
array  will  detect  signals  in  the  1  to  10  second  period  passband.  Infrasound 
can  be  detected  at  other  frequencies  (such  as  the  work  done  by  Dr.  Christie  at 
Tennant  Creek,  Australia)  but  such  signals  are  not  within  the  scope  of  the 
Windless  Bight  prograa. 

There  are  five  types  of  signals  which  are  coaaonly  detected  by  the  Windless 
Bight  systea.  These  are  aicrobaroas,  auroral  infrasonic  waves,  aountain 
associated  infrasound,  Mount  Erebus  eruptive  events,  and  signals  related  to 
large  ataospheric  disturbances.  Each  of  these  are  described  below. 

Hicrobaroas  are  generated  by  aarine  storas  (generally  low  pressure  systeas) 
which  will  cause  a  large  area  of  the  sea  surface  to  oscillate  in  standing 
waves  with  a  period  of  about  14  seconds.  This  in  turn  creates  an  ataospheric 
oscillation  which  travels  as  a  sound  wave  with  a  period  of  about  7  seconds. 
At  Windless  Bight,  aicrobaroa  activity  is  coaaonly  detected  froa  the  Ross  Sea. 
the  Bellingshausen  Sea,  the  Weddell  Sea,  and  the  South  Indian  Ocean. 
Microbaroa  activity  is  detected  by  the  N-6  array. 

Auroral  Infrasonic  Waves  are  shock  (or  bow)  waves  created  by  the  supersonic 
aotion  of  an  auroral  electrojet.  AIW  have  been  studied  in  the  northern 
heaisphere  for  several  years.  In  all  of  the  northern  heaisphere  studies,  AIW 
have  been  found  to  occur  only  when  the  electrojet  is  eoving  toward  the 
equator.  The  Windless  Bight  Infrasonic  Array  was  originally  created  to 
further  study  this  asyametry.  Windless  Bight  has  the  highest  geoeagnetic 
latitude  of  any  infrasonic  observatory,  and  is  the  only  such  observatory  in 
the  south  polar  region.  AIW  are  detected  by  the  N-7  array. 

Mountain  Associated  Infrasound  is  a  low-level  and  fairly  continuous  sound 
that  is  produced  by  jet  stream  interaction  with  mountains.  This  type  of 
infrasound  is  most  commonly  seen  at  Windless  Bight  froa  three  sources: 
acimuths  140  degrees,  230  degrees,  and  340  degrees.  It  is  not  known  where 


these  sources  of  infrasound  are  located.  MAI  is  detected  by  the  N-7  array. 

Mount  Erebus  is  an  active  volcano  located  only  fifteen  eiles  from  the 
Windless  Bight  array.  Frequent  mi ni -erupti ons  from  the  lava  lake  at  the 
summit  of  the  aountain  create  infrasonic  pulses  Mith  periods  in  the  range  of  3 
to  5  seconds.  Usually  these  events  are  saall  in  aaplitude,  but  are  easily 
discernable  froa  aicrobaroas  by  their  short  period  and  good  resolution  of 
aziauth  and  velocity  estiaates.  During  tines  of  increased  volcanic  activity, 
events  can  exceed  the  dynaaic  range  of  the  sensor /discrininator  systea.  These 
events  are  detected  by  the  N-6  array. 

Signals  related  to  ataospheric  disturbances  are  typically  large  explosive 
eruptions  of  volcanoes.  Major  eruptions  Mill  produce  infrasound  of  such 
intensity  that  it  can  be  detected  froa  any  point  on  the  globe.  Such  signals 
can  last  for  several  hours  and  Mill  contain  a  Mide  spectrum  of  frequency 
components.  The  eruptions  of  Mount  Saint  Helens  (Washington,  USA)  in  May 
1980,  and  El  Chichon  (Mexico)  in  April  1982  are  tMO  such  events  that  Mere 
recorded  by  the  Windless  Bight  system. 

Infrasonic  signals  are  detected  using  an  array  of  three  or  more 
"microphones."  An  infrasonic  microphone  is  actually  a  mi cr obar oaeter ,  but  is 
designed  in  such  a  May  that  any  changes  in  pressure  that  last  for  longer  than 
a  f e m  minutes  Mill  be  ignored.  Wind  is  detectable  Mith  such  a  microphone,  but 
is  undesired  noise  in  terms  of  infrasonic  signal  detection,  so  it  is  minimized 
by  using  an  acoustic  filter  (a  variation  of  the  Daniels  space  filter).  At 
Windless  Bight,  this  filter  is  simply  a  300  foot  long  pipe  Mith  a  0.074  inch 
hole  drilled  in  it  every  5  feet.  Differing  pressures  at  adjacent  holes  Mill 
tend  to  cancel  one  another,  thus  pressure  variations  Mith  Mavelengths  of  less 
than  600  feet  will  be  filtered. 

As  the  pressure  varies,  a  diaphragm  m  the  sensor  varies  its  capacitance, 
creating  a  frequency  modulated  audio  signal  Mhich  represents  the  pressure 
variations.  This  audio  tone  is  transmitted  from  Windless  Bight  to  the 
Infrasomcs  lab  at  McMurdo  Station  Mhere  the  pressure  information  is 
demodulated  and  recorded. 

The  signal  traces  from  the  pressure  variations  are  then  compared  to 
determine  the  correlation  betMeen  different  sensors  in  an  array,  and  the 
arrival  time  lag  (betMeen  sensors)  of  each  signal.  Historically,  this  Mas 
done  by  laying  chart  records  on  top  of  one  another  on  a  light  table.  HoMever, 
the  Windless  Bight  systea  uses  a  computer  to  perform  this  analysis.  If  the 
correlation  betMeen  sensors  is  high,  a  signal  is  oresumed  to  exist.  Time  lag 
information  i3  used  to  determine  the  trace  velocity  and  azimuth  of  arrival. 
The  data  is  filtered  using  a  frequency  domain  data-adapti ve  polarization 
filtering  technique.  The  time  domain  analysis  is  then  repeated  for  the 
filtered  data.  The  unfiltered  data  and  these  analysis  results  are  recorded  on 
magnetic  computer  tape. 

The  Infrasonics  lab  also  houses  a  second  computer  which  is  used  for  further 
analysis  of  signals  of  interest.  A  fairly  comprehensive  software  library  is 
maintained  for  data  analysis,  data  transmission  and  additional  software 
development. 


Chapter  2 
Hardware  Overview 


The  Mindless  Bight  Infrasonic  Observatory  is  a  complete  systee  consisting  of 
t no  renote  infrasonic  sensor  arrays  and  a  support  laboratory  staffed  by  a  full 
tine  technician.  The  large  ( N— 7 )  sensor  array  includes  four  sensor  stations 
which  are  naaed  RTS,  Erebus,  Terror  and  Ross.  These  sensors  are  spaced  about  4 
to  b  kiloaeters  fron  one  another.  The  saall  (N-6)  array  uses  the  RTG  station, 
and  three  additional  stations  Mhich  are  naaed  Aurora,  Vee  and  Nova.  These 
sensors  have  an  inter-station  spacing  of  about  1000  deters.  The  two  sensor 
arrays  are  located  in  Mindless  Bight,  a  portion  of  the  Ross  Ice  Shelf  near  the 
southern  shores  of  Ross  Island.  This  is  about  IS  ailes  froa  Scott  Base,  at  the 
southern  end  of  Hut  Point  Peninsula.  A  aap  of  the  sensor  locations  is  shown  in 
figure  1.  The  Infrasonics  Lab  is  located  halfway  between  Scott  Base  and 
McMurdo  Station,  and  houses  the  data  collection  and  analysis  systems, 
supplies,  repair  parts  and  so  forth. 

The  Windless  Bight  Infrasonic  System  consists  of  three  major  subsystems:  the 
remote  sensors  with  their  power  supply  and  transmi tters ,  the  analogue 
recording  system  with  its  receivers  and  demodulators,  and  the  digital  data 
acquisition  and  analysis  system  with  its  computers  and  associated 
peripherals.  Block  diagrams  for  each  of  these  subsystems  are  shown  in  figures 
2,  3  and  4. 


2. 1  Remote  Sensors 


The  sensor  itself  consists  of  an  acoustic  filter  attached  to  a  microphone 
can.  The  filter  is  a  300  foot  long,  2  inch  diameter  PVC  pipe  with  a  0.074 
inch  hole  every  5  feet  along  the  length  of  the  pipe.  Air  enters  the  filter 
pipe  through  the  small  holes,  as  the  ends  of  the  pipe  are  sealed.  A  center 
tap  on  the  pipe  directs  the  air  through  a  short  hose  to  the  microphone  can. 
Air  entering  the  can  first  passes  through  a  valve  in  the  calibrator  box  to  the 
microphone  capsule.  This  calibrator  box  consists  of  an  electrically  driven 
valve  to  close  the  line  from  the  hose,  and  a  saall  pump  to  differentially  pump 
air  into  the  microphone  and  the  backing  volume. 

The  electronic  part  of  the  sensor  is  the  microphone  capsule  and  the 
oscillator.  The  microphone  capsule,  a  capacitive  diaphragm,  is  normally 
connected  between  the  input  air  hose  and  the  backing  volume.  An  air  pressure 
difference  between  these  two  air  volumes  will  cause  the  diaphragm  to  move, 
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Figure  4.  Digital  Systan  Block  Diagram 


thereby  changing  the  capacitance  of  the  eicrophone  capsule.  The  normal 
capacitance  is  about  108  picofarads.  A  Wein  Bridge  oscillator  is  connected  to 
the  capsule,  and  the  oscillator  frequency  is  inversely  controlled  by  the 
capacitance.  The  output  of  the  oscillator  is  a  frequency  nodulated  audio 
tone.  A  higher  outside  air  pressure  than  in  the  backing  volume  raises  the 
frequency  above  its  normal  frequency  (nominally  1500  hertz).  A  slow  leak  is 
connected  across  the  diaphragm  to  compensate  for  long  term  changes  in 
pressure. 

The  12  volt  DC  power  for  the  oscillator  and  the  oscillator's  audio  output 
share  the  same  pair  of  conductors.  For  redundancy,  each  conductor  is  actually 
two  wires.  All  four  wires  are  in  a  common  cable  of  the  type  CX1065/G, 
commonly  known  as  "spiral  four."  There  is  a  run  of  spiral  four  from  each 
sensor  tu  the  RTG  Hut  which  contains  the  power  supply  and  the  transmitters. 

The  source  of  electric  power  for  the  seven  sensors  is  a  Radioisotope 
Thermoelectric  Generator  (RTG).  This  RTG  is  a  model  LCG-25C,  serial  number 
RTG-006,  built  by  a  division  of  the  Martin  Marietta  Corporation  (which  no 
longer  exists).  It  is  on  loan  from  the  US  Naval  Facilities  Engineering 
Command  Nuclear  Engineering  Division.  The  RTG  was  originally  fueled  on  01 
December  1967,  and  had  an  output  powerof  33  watts.  Output  power  decreases  by 
about  1.35  watts  per  year.  On  01  December  1980  the  output  power  was  21 
watts.  Under  the  current  configuration  of  the  electronics  at  Windless  Bight, 
the  RT6  will  supply  sufficient  power  until  January  1988,  or  possibly  January 
1989.  A  75  ohm,  5  watt  resistor  is  connected  to  the  system  to  consume  extra 
power.  This  should  be  changed  to  a  150  ohm,  2  watt  resistor  in  January  1986. 
The  150  ohm  resistor  should  be  removed  in  January  1987. 

The  output  voltage  of  the  RTG  is  nominally  2.43  volts.  A  DC  to  DC  power 
conditioner  is  used  to  convert  this  to  12  volt  and  24  volt  supplies  to  power 
the  system  electronics.  The  power  conditioner  is  model  Sentinel  25 
PCU-001-5004,  serial  number  SC  1014  and  was  built  by  Isotopes,  Nuclear  Systems 
Division,  Teledyne  Corporation.  This  may  be  the  only  such  power  conditioner  in 
existence.  A  complete  set  of  spare  components  for  the  power  conditioner  is 
stared  in  the  Infrasonics  Lab. 

The  spiral  four  cables  from  the  seven  sensors  are  connected  to  the 
electronics  panel  in  the  RTG  Hut.  The  control  panel  has  eight  identical 
circuits;  one  for  each  sensor  and  one  spare.  For  redundancy,  there  are  two 
variable  voltage  regulators  for  each  sensor  which  are  adj*ustei  to  supply  19 
milliamperes  to  the  oscillator.  This  results  in  12  volts  across  the 
oscillator.  Due  to  line  losses  in  the  spiral  four  cable,  the  voltage  at  the 
hut  may  be  more  than  16  volts. 

The  audio  tone  is  separated  from  the  DC  power  and  fed  to  a  Monitron  VHF  FM 
transmitter,  model  T15P23  (or  equivalent).  There  is  one  transmitter  for  each 
sensor,  and  all  transmit  in  the  150  to  160  MH:  band.  Ail  transmitters  are 
powered  by  the  12  volt  supply  from  the  power  conditioner.  A  Scala  Electronics 
(model  HDCA-5  CA5-150)  tuned  YAGI  antenna  for  each  transmitter  is  mounted  on 
the  outside  of  the  hut. 
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A  set  of  Honitron  VHF  FH  receivers  (model  R15)  is  located  in  a  crate  near 
the  road  to  Scott  Base  (about  1/4  eile  froe  the  Infrasonics  Lab).  Antenna 
easts  near  the  crate  have  a  good  1 ine-of-sight  to  the  RTS  Hut  site  in  Windless 
Bight.  The  receiving  antennas  are  identical  to  those  used  by  the 
transei tters.  The  receivers  and  transaitters  are  eanuf actured  as  watched 
pairs.  Runs  of  spiral  four  cable  are  used  to  carry  the  audio  outputs  froe  the 
receivers  to  the  ,Inf rasoni cs  Lab.  An  additional  run  of  spiral  four  carries  the 
12  volt  DC  supply  from  the  lab  to  power  the  receivers.  This  12  volt  supply  is 
provided  by  a  Valor  CS15-0.4  power  supply. 

In  the  Infrasonics  Lab,  the  audio  tones  are  deaodulated  and  filtered,  and 
the  data  recorded  and  analyzed.  There  are  two  demodulator  panels,  or  card 
cages;  one  for  each  array.  These  two  card  cages  are  siailiar  in  function,  the 
main  difference  being  the  bandpass  of  the  filter  section.  The  large  or  N-7 
array  has  a  bandpass  of  7  to  70  second  periods,  while  the  saall  or  N-6  array 
has  a  bandpass  of  1  to  10  second  periods.  The  N-7  array  card  cage  is  serial 
SCB,  and  the  N-6  array  card  cage  is  serial  WBA.  The  audio  tone  froe  the  sensor 
in  the  RTG  hut  is  used  by  both  arrays. 

The  card  cages  consist  of  a  power  supply,  controls  and  I/O  connectons,  and  a 
demodul ator /f i 1  ter /aapl i f i er  card  for  each  channel.  The  audio  tone'  is 
demodulated  with  a  phase-locked  loop,  resulting  in  a  signal  representing  the 
movement  of  the  aicraphone  diaphrage.  This  signal  is  bandpass  filtered  using 
active  filters,  and  then  passed  through  a  variable  amplifier  to  pereit  systee 
calibration.  The  aeplified  signal  is  then  eade  available  to  the  analogue  and 
digital  recording  systees. 

Outputs  froe  the  N-7  array  card  cage  are  connected  to  Esterline  Angus  A601R 
rectilinear  chart  recorders  ,  which  record  at  the  rate  of  3/4  inch  per 
minute.  A  Datum  9100  Tiee  Code  Generator  produces  an  IRIS  *D"  slow  code  which 
is  recorded  on  each  aargin  of  the  EA  charts. 

Separate  outputs  are  available  for  data  to  be  recorded  by  a  slow-speed  (1/4 
inch  per  einute)  analogue  magnetic  tape.  A  tape  bias  card  is  mounted  in  the 
N-7  array  card  cage  to  provide  a  200  Hertz  AC  bias  signal  for  this  tape 
recorder.  A  Systron  dormer  3210  clock  is  used  to  supply  5  einute  and  1  hour 
time  marks  to  the  slow-speed  tape.  The  tape  is  recorded  as  one  half  of  an 
interleaved  14-track  IRIG  standard,  using  the  odd  numbered  tracks.  Five  of 
these  tracks  are  used  to  record  the  four  N-7  array  channels  and  the  tiee 
marks. 

Outputs  from  the  N-6  array  card  cage  (with  the  exception  of  RTG  N-6)  are 
connected  to  a  three  channel  Helicorder  drum  recorder.  The  Helicorder  records 
at  the  rate  of  0.6  inches  per  minute,  which  works  out  to  be  IS  millimeters 
more  than  a  full  rotation  per  hour.  Due  to  the  saall  distance  between 
adjacent  traces  on  the  helicorder  chart,  the  input  amplifiers  are  normally  set 


to  36dB  attenuation,  but  this  may  be  decreased  if  it  is  necessary  to  have  an 
increased  sensitivity  on  the  chart. 


aii.Digi  tal  _Data_Acgui  |i  tion_§nd_Anal.yti  s_§yste| 


The  digital  data  acquisiton  systee  is  an  LSI-11  based  microcomputer  which 
collects,  analyzes  and  records  the  data  outputs  from  the  card  cages.  The 
systee  is  configured  to  operate  as  a  Digital  Equipeent  Corp.  PDP-11,  with 
peripherals  for  data  acquisition,  operator  coaeuni cati on,  timekeeping,  and 
archival  storage.  This  coeputer  operates  in  a  stand-alone  environnent 
(without  an  operating  systee)  using  software  developed  by  B.  David  Spell  in 
1980. 


The  filtered  signals  are  sampled  by  a  Data  Translation  model  DT1761  analogue 
to  digital  converter.  The  software  routine  A2DRTS  is  the  device  handler  for 
this  peripheral.  N-7  array  channels  are  sampled  once  per  second,  and  N-6 
array  channels  are  sampled  four  times  per  second.  The  sampling  order  is 
4, 5, 6, 7,  4, 5,6,7,  4, 5, 6, 7,  4 , 5, h , 7, 0, 1 , 2 , 3.  The  sampled  data  for  each  12B 
second  window  is  stored  in  a  buffer  until  the  buffer  fills  (at  the  end  of  the 
time  window),  at  which  time  the  data  is  written  onto  magnetic  tape.  The  data 
from  the  most  recent  window  is  then  analyzed  by  the  various  routines  which 
make  up  the  RTG8CH  software  ensemble.  During  this  analysis,  the  data  for  the 
next  128  second  window  is  concurrently  collected. 

Real  time  analysis  provides  data  statistics,  cross-correlations  between 
channels,  azimuth  of  arrival  and  trace  velocity  of  assumed  signals,  and 
frequency  domain  filtering  and  analysis.  Data  statistics  include  maximum, 
minimum,  average,  RMS  and  standard  deviation  values  (in  "counts")  for  each 
channel.  Cross-correl ati on  analysis  gives  a  measure  of  similiarity  between 
each  pair  of  channels  in  an  array,  and  provides  a  time  lag  for  the  maximum 
similiarity.  Time  lag  information  is  used  to  estimate  the  azimuth  and 
velocity  of  signals.  Frequency  domain  filtering  is  performed  and  then  all  of 
the  prior  analysis  is  repeated. 

All  analysis  results  are  transmitted  to  the  operator's  console.  These 
results  are  also  written  into  the  trailer  of  the  next  block  on  the  magnetic 
tape. 

After  five  to  six  days,  a  full  tape  is  removed  from  this  computer.  A  second 
computer  using  the  RT-11  operating  system  is  then  used  for  further  analysis  of 
the  collected  data  as  necessary.  This  second  computer  has  a  number  of 
peripherals  to  aid  in  the  analysis  of  data,  preparation  of  data  messages  and 
development  of  software.  An  operator's  console  with  graphics  capabilities,  a 
line  printer,  a  paper  tape  punch,  disk  drives,  magnetic  tape  transport,  CP/M 
emulator  and  system  clock  round  out  this  system's  peripherals. 


-  10  - 


v  v 


Chapter  3 
SOFTWARE  OVERVIEW 


The  MeMurdo  Station  Infrasonics  Lab  houses  a  computer  facility  with  a 
comprehensive  library  of  software  for  such  needs  as  data  collection,  data 
analysis,  data  transaission,  software  developaent  and  docuaentati on 
developaent.  Soae  of  this  software  has  been  written  exclusively  for  the  needs 
of  the  infrasonics  program,  while  the  more  common  tasks  (such  as  word 
processing)  are  accomplished  through  the  use  of  commercially  available 
applications  packages. 

The  use  of  any  computer  requires  a  sophisticated  prograa,  known  as  an 
operating  system,  to  handle  the  system's  devices  and  manage  the  user's 
prograas.  The  Infrasonics  computers  make  use  of  three  different  operating 
systems.  These  are  $SIMRT,  RT-11  and  CP / M . 

The  data  acquisition  ensemble,  RTG8CH,  is  designed  to  run  without  the 
presence  of  an  actual  operating  system,  in  an  effort  to  minimize  software 
overhead.  In  practice,  there  must  still  be  some  mechanism  for  managing  the 
use  of  system  devices.  The  RT-il  Simulator,  $SIMRT,  fills  this  need.  FSIHRT 
provides  device  support  for  the  operator's  console  and  error  handling  while 
using  only  a  fraction  of  the  memory  space  of  RT-11.  It  has  the  added  feature 
of  not  being  dependent  on  a  disk  drive  for  system  bootstrapping  and 
operation. 

RT-11  is  a  single  user  operating  system  which  provides  management  of  all  of 
the  system's  devices,  and  a  number  of  utility  functions.  It  is  written  for 
use  on  DEC'S  PDP-11  series  at  computers,  and  is  well  documented  and  well 
supported. 

CP/M  is  the  operating  system  used  by  many  of*  the  popular  home  computers. 
Use  of  CP/M  in  the  Infrasonics  installation  is  possible  through  a  CP/M 
emulator  board.  It  must  be  accessed  from  the  RT-11  operating  system,  but  once 
invoked,  access  to  system  devices  through  RT-11  becomes  transparent  to  the 
user.  The  ability  to  use  CP/M  based  software  makes  it  cost  effective  to 
obtain  applications  packages  to  perform  tasks  that,  if  purchased  for  RT-11, 
would  be  prohibitively  expensive. 
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3.1  RT68CH 


This  is  the  mainline  data  collection  prograe,  developed  by  B.  David  Spell. 
The  developeent  process  is  described  in  Digital  Acquisition  and  Analysis 
Systia  for  Antarctica  (SIR80-3)  and  Digital  Data  Acquisition  and  Analysis 
(Dave's  thesis).  Since  this  prograe  is  designed  to  run  without  an  operating 
system,  it  aust  be  linked,  loaded  and  bootstrapped  in  a  different  aanner  froa 
the  other  prograas  described  in  this  book.  This  prograe,  as  well  as  the 
source  files  for  all  of  the  subroutines  in  RT6LIB  and  NACLIB  aay  be  found  on 
disks  labeled  RT68CH  V22.5. 


3.1.1  Algorithm  Description 

RTGSCH  perforas  two  concurrent  tasks:  data  collection  and  data  analysis. 
The  A2D  Conversion  handler  routine,  A2DRTS,  supervises  the  saapling  of  the 
eight  data  channels,  and  assuaes  responsibility  for  storing  the  saapled  data 
on  the  magnetic  tape.  Data  is  collected  in  12B  second  time  windows.  At  the 
end  of  each  time  window,  the  data  block  is  written  to  the  tape,  and  also 
passed  to  the  analysis  portion  of  the  RT68CH  software. 

RTS8CH  monitors  the  elapsed  time  between  completion  of  time  windows,  as  the 
A2D  converter  sometimes  gets  caught  in  a  hang-up  state.  When  this  occurs, 
RTGSCH  places  a  flag  in  the  header  of  the  next  block,  and  restarts  the  A2D 
converter.  This  serves  as  an  extra  safeguard  against  data  loss.  The  operator 
is  alerted  to  a  hang-up  state  recovery  by  the  issuance  of  the  message  "HUNG!" 
to  the  operator's  console  and  to  the  printer. 

When  all  channels  are  operative,  the  data  is  sampled  in  the  following  order 
each  second:  4, 5, 6, 7,  4, 5, 6, 7,  4, 3, 6, 7,  4 , 5 , 6 , 7 , 0 , 1 , 2 , 3.  However,  if  when 
starting  a  tape,  the  operator  invokes  three  channel  analysis,  this  sampling 
order  is  altered.  The  "missing"  channel  is  sampled  last  (i.e.  if  3  were  the 
missing  channel,  the  sampling  order  would  be  4, 6,7, 5...)  and  analysis  is 
performed  on  the  first  three  channels.  This  must  be  indicated  on  the  tape 
label  as  it  can  make  a  big  difference  when  the  tapes  are  read  at  a  later 
date.  For  instance,  routine  READ  assumes  that  all  four  channels  are  present 
in  the  normal  order  when  it  asks  which  channel  to  exclude  for  three  channel 
analysis.  It  is  not  possible  to  perform  three  channel  analysis  with  READ  on  a 
tape  which  has  been  recorded  with  three  channel  analysis,  unless  the  bad 
channel  was  the  fourth  channel  in  that  array  (i.e.  channel  3  or  7  only).  The 
same  is  true  for  the  Offline  Analysis  routines.  The  bad  channel  data  will  be 
in  the  fourth  record  in  the  data  block  file,  so  the  X  and  Y  coordinates  of  the 
channel  positions  will  be  mixed. 

Real  time  analysis  consists  of  three  stages:  time  domain  analysis,  frequency 
domain  filtering  and  spectral  peak  estimation,  and  then  time  domain  analysis 
of  the  filtered  data.  First,  the  data  from  the  A2D  converter  is  unscrambled 
by  subroutine  UNWIND.  Time  domain  analysis  is  managed  by  subroutine  RT6TDA, 


and  consists  a*  three  steps.  The  data  statistics  for  each  channel  (aaxiaua, 
ainiaua,  average,  ras  and  standard  deviation)  are  calculated  by  subroutines 
HAXHIN  and  HUNPSI.  Next,  the  cross-corr el ati on  function  for  each  channel  pair, 
and  the  tiae  lag  for  aaxiaua  correlation  is  calculated  by  subroutine  RTXCQV. 
Finally,  the  tiae  lag  inforaatian  is  used  by  subroutine  BEHEST  to  estimate  the 
azimuth  of  arrival  and  trace  velocity  of  the  Mavefora  of  aaxiaua  correlation. 
BEHEST  also  calculates  the  variance  of  the  azimuth  and  velocity  estiaates, 
which  serves  as  a  aeasure  of  the  agreeaent  of  tiae  lags  between  channel 
pairs. 

Frequency  doaain  analysis  is  handled  by  subroutines  FILTER  and  PURFIL.  The 
filter  is  based  on  the  data-adapt i ve  polarization  (or  pure  state)  filtering 
technique  developed  by  Saason  and  Olson;  whereby  each  filter  coefficient  is 
equal  to  the  "degree  of  polarization*  of  the  aul ti -channel  signal  at  each 
spectral  estiaate.  Curing  the  calculation  of  the  filter  coefficients,  the 
spectral  peak  is  also  deterained. 

After  coapletion  of  the  filtering,  the  tiae  doaain  analysis  (with  the 
exception  of  the  statistics  calculations)  is  repeated.  For  each  block  of 
data,  all  of  the  real-tiae  analysis  is  perforaed  on  the  N-6  (T)  array  data, 
and  then  perforaed  on  the  N-7  (F)  array  data.  N-6  array  data  for  the  aost 
recent  block  is  analyzed.  N-7  data  for  four  blocks  (of  which  the  aost  recent 
block  is  the  last)  is  analyzed,  thereby  providing  a  sliding  window  analysis 
scheae,  where  the  window  slides  one-fourth  of  the  window  length  for  each 
analysis. 


3.1.2  Bootstrapping 


The  procedure  for  bootstrapping  the  RTS8CH  system  is  as  follows: 
DHount  the  program  tape. 

2) Restart  the  computer.  The  computer  will  respond  with: 

28 

Start? 

3 (Reply:  n 

The  computer  will  respond  with:  @ 

4)Enter:  1080/ 

The  computer  will  respond  with  the  contents  of 
that  memory  location. 

3) Enter  the  following,  terminating  each  line  with 
a  line  feed. 

12700 

172524 

5310 

12740 

60011 

105710 

100376 

5710 

100767 

12710 

60003 


105710 

100376 

3710 

100777 

5007 

After  each  line  feed,  the  coaputBr  will  respond 
with  the  next  address  and  its  contents. 

6) Enter :  1000<SHIFT>6 

The  coaputer  should  read  the  prograa  tape  and  respond  with: 
PAUSE  —  MOUNT  NEW  TAPE 

The  RT68CH  prograa  is  now  loaded,  and  ready  to  operate. 


3.1.3  Operation 


3. 1.3.1  Initialization  Dialogue 

The  program's  initialization  dialogue  is  quite  staple.  Under  noraal 
circuastances,  it  is  only  necessary  to  enter  the  year  (as  follows): 

RTG8CH  Rev  22.5AB 

Tape  unit  is  ON  LINE  and  tape  is  at  BQT!AB 
Tape  unit  is  ready!AB 

Tape  is  NOT  write  protected — do  you  want  to  reinitialize7  <CR> 

A8 

Do  you  want  an  laaediate  EOF  (end  of  file)  to  precede  the  data?  <CR> 

AB 

Year"’  84  <CR> 

*  B 

Time:  15-MAY-84  22:  0  27"UT77  <CR> 

'  B 

Changes?  <CR> 

AB 

The  above  dialogue  would  set  up  the  prograa  for  4-channel  analysis  on  both 
arrays,  saapled  in  the  noraal  order  (0, 1 , 2, 3, 4 , 5, 6, 7) .  After  128  seconds,  the 
analysis  printout  would  begin.  The  following  dialogue  would  set  up  the 
prograa  for  analysis  without  chennel  RTS.  The  time  reset  procedure  is  also 
shown . 

RTG8CH  Rev  22.3AB 

Tape  unit  is  ON  LINE  and  tape  is  at  BOT 1 AB 
Tape  unit  is  ready!AB 

Tape  is  NOT  write  protected  (ring  is  IN)-do  you  want  to  rei  n  1 1 1  al  l  ze7  -CR> 

AB 

Do  you  want  an  laaediate  EOF  (end  of  file)  to  precede  the  data7  <CR> 

A  B 

Year7  84  <CR> 

B 

Tine:  15-MAY-84  22:  0  27"UT77  N  <CR> 

'B 

Correct  tiae7  ( Y,H,D,H,H)  84,5,15,22,2 


<  CR  '■ 


<:r> 


v> 


m 


AB 

Tut!  15-HAY-84  22:  2  0’UT?? 

'B 

Chang**?  Y  <CR> 

AB 

F,T  or  B?  B  <CR> 

AB 

F  array:  3  or  4?  3  <CR> 

AB 

hissing  channsl  <0, 1,2,3  (or  8  if  non*)>:  0  <CR> 

AB 

T  array:  3  or  4?  3  <CR> 

AB 

Hissing  channel  <4, 5, 6, 7  (or  8  if  none)'/:  4  <CR> 

*8 

A2D  channels  (missing  channel  in  4th  position):  1 , 2 , 3 , 0 , 5 , 6 , 7 , 4  <CR> 
A  8 

1  2  3  0  3  6  7  4 

A  B 

Changes?  <CR> 

AB 


3. 1 . 3. 2  Commands 

About  675  blocks  of  data  are  collected  in  one  day.  One  10  1/2  inch  tape 
Hill  last  about  3  1/2  days.  During  data  acquisition,  the  coeputer  Mill  ignore 
all  input  from  the  terminal  with  the  exception  of  two  comands.  These 
commands  are  used  to  interrupt  acquisition  for  a  tape  change,  or  to  change  the 
answers  to  the  initialization  dialogue.  Although  the  command  aay  be  entered 
at  any  tine,  the  program  will  not  recognize  it  until  analysis  of  the  current 
block  is  completed.  The  two  commands  perform  the  following: 


< SHIFT)  R 


< SHIFT'/  C 


This  command  will  write  2  end-of-file  marks,  rewind  the 
tape,  and  issue  the  prompt:  PAUSE  —  HOUNT  tape!!  After 
the  tape  is  mounted,  a  carriage  return  will  begin  the 
initialization  dialogue.  This  command  can  be  remembered 
by  the  memnonic  "Rewind  this  tape." 

This  command  will  write  1  end-of-file  mark  and  begin  the 
initialization  dialogue.  It  is  intended  for  use  when  it 
is  desired  to  change  the  analysis  (i.e.  from  3  to  4 
channels)  without  starting  a  new  tape.  It  can  be 
remembered  by  the  memnonic  "Continue  on  this  tape.* 


3.1.4  Program  revision 

This  is  the  procedure  for  revising  the  RTG8CH  program  or 
subroutines  and  creating  a  load  tape. 


one 


of  its 
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.EDIT  filnaa. FOR 

(edit  the  source  Hie  as  necessary)’ 

IT  the  revised  routine  is  a  FORTRAN  routine,  then: 

. FORTRAN/LIST/SHQN:  1  Hlnae 

If  the  revised  routine  is  a  FORTRAN  subroutine,  then: 
.LIBRARY  RTSLIB  f i 1 naa/REPLACE 

If  the  revised  routine  is  a  MACRO  subroutine,  then: 

. MACRO/LIST: f ilnaa  filnaa 
.R  LP16 
•PRINT  filnaa 
.R  LPINIT 

.LIBRARY  MACLIB  f 1 1 naa/REPLACE 

,LINK/MAP:RTG8CH/LDA/ INCLUDE  RTG8CH.RT6L IB, MACLIB 
Library  search?  ISHORT 
Library  search?  fSIMRT 
Library  search?  <CR> 

Mount  the  program  tape  (with  a  write  enable  ring  inserted) 
. INIT/NOQUERY/FILE: SY : M8G0T. BGT  MTB: 

.COPY  SY : MBOOTP. PR I,SY:MBQQTS.S£C,DK:RT68CH.LDA 
Files  copied: 

SY : MBOOTP. PRI  to  MTB: MBOOTP. PRI 
SY : MBOOTS. SEC  to  MTB: MBOOTS. SEC 
DK:RTG8CH.LDA  to  MTB: RTG8CH. LDA 

.DIR  MTB: 

the  directory  will  show  three  files: 

MBOOTP, MBOOTS,  and  RTG8CH 


3.1.5  Data  listing  description 

Sigaa  is  standard  deviation,  BOI  is  block  of  interest,  Ps:  is  RMS 
(root-aean-square)  ,  Mu  is  average,  Rho  is  cross-correl ation  coefficient,  A:  is 
aziauth  of  approach,  and  Vel  is  trace  velocity.  I  prefix  aeans  Integer  (1*2) 
and  all  others  are  real  (R*4).  Date  and  tine  are  in  a  fora  described  in  the 
1 i terature. 


1  Iblock  nr  /  Ihard  errors  /  Iskew  errors  /  Ioverrange  /  Iunderrange 

2  station  code  /  date  /  tine 

3  Iblock  nr  /  0  /  A:  sigaa  /  Vel  signa  /  (last  BOI)  /  Az  /  Vel 

4  Tiae  delays:  4-5  /  4-6  /  4-7  /  5-6  /  5-7  /  6-7  /  average  Rho 

5  individual  Rho's:  4-5  /  4-6  /  4-7  /  5-6  /  5-7  /  6-7 

6  ch  4;  Iaa:<  /  Iain  /  Mu  /  Sigaa  i  Psi 

7  ch  5:  sane  as  line  6 
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S  ch  6:  saae  as  line  6 

9  ch  7:  saae  as  line  b 

10  Iblock  nr  /  spectral  peak  /  sane  as  line  3  (after  filtering! 

11  saae  as  line  4  (after  filtering) 

12 

13  Iblock  range  /  sane  as  line  3 

14  Tine  delays:  0-1  /  0-2  /  0-3  /  1-2  /  1-3  /  2-3  /  average  Rho 

15  individual  Rho's:  0-1  /  0-2  /  0-3  /  1-2  /  1-3  /  2-3 

16  ch  0:  saae  as  line  6 

17  ch  1:  saae  as  line  6 

18  ch  2:  saae  as  line  6 

1?  ch  3:  saae  as  line  6 

20  Iblock  range  /  sane  as  line  10 

21  sane  as  line  14  (after  filtering) 


Lines  1  and  2  are  general 
Lines  3  through  11  are  T  array 
Lines  13  through  21  are  F  array 

Lines  3,  10,  13,  or  20  will  not  print  if  Vel  is  out  of  range 


3*2.51:11 


The  RT-11  operating  systen  is  the  foundation  for  the  use  of  the  Offline 
Analysis  Conputer.  As  installed  on  this  coaputer,  RT-11  V03B-00(S),  provides 
nanageaent  for  all  of  the  systen's  devices,  and  a  number  of  utility  functions, 
Mhile  maintaining  a  reasonably  snail  overhead.  Users  who  are  unfaailiar  with 
RT-11  should  consult  the  Intro  to  RT-11  manual  before  attempting  to  use  the 
systen. 

Three  different  systen  disks  are  provided,  each  intended  for  a  specific 
purpose.  The  Intro  to  RT-11  Systen  Disk  contains  all  files  necessary  to  work 
through  the  Intro  to  RT-11  tutorial  ,  and  makes  the  appropriate  device 
assignments  upon  startup.  The  Systen  84  disk  is  the  general  work  disk, 
containing  all  of  the  RT-11  utilities,  MACRO,  FORTRAN,  BASIC,  PASCAL,  EDIT, 
TECQ,  CP,  and  a  number  of  additional  utilities.  The  Systen  for  CP/H  disk  is 
intended  for  use  with  CP/M,  especially  for  file  transfers  between  the  two 
operating  systems,  or  for  large  text  outputs  from  the  CP/11  based  text 
processing  progress;  as  this  disk  contains  only  those  files  essential  for  data 
transfers  and  CP/M  control. 
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3.2. 1  Bootstrapping 
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3.2. 1.1  Cold  Start 

The  OHline  Analysis  Computer  is  normally  powered-off  when  not  in  use.  To 

bring  up  the  systee  power,  first  power-on  the  operator's  console  and  the  line 

printer  (switches  at  the  right  rear  of  each  unit),  then  power-on  the  computer 
and  disk  drives  (three  switches  to  right  of  door  to  the  computer  room). 
Insure  that  the  appropriate  RT-11  system  disk  is  loaded  in  drive  0.  After 

performing  a  set  of  self-checks,  the  computer  will  respond  with 

28 

Start? 

Entering  “y<RETURN>"  will  cause  the  computer  to  install  the  RT-11  operating 
system,  and  execute  the  system  commands  in  the  file  SY: STARTS. COM.  When  the 
system  responds  with  a  “ . "  prompt,  it  is  ready  for  use. 


3.2. 1.2  Changing  System  Disks 

To  change  to  a  different  system  disk,  simply  load  the  new  s/stem  disk  into 
drive  8  and  enter  the  command  BOOT  DY0:.  The  computer  will  reinstall  the  RT-11 
operating  system  and  execute  the  commands  in  SY: STARTS. COM. 


3.2. 1.3  Recovering  from  QDT 

On  occasion,  a  system  error  or  accidentally  hitting  the  BREAK  key  will  cause 
the  processor  to  halt,  leaving  the  computer  in  ODT.  Returning  to  RT-11  may  or 
may  not  be  possible  without  rebooting  the  system.  The  presence  of  an  0  prompt 
indicates  that  the  computer  is  in  ODT.  Try  these  procedures  until  the  RT-11 
dot  prompt  is  successfully  obtained.  If  there  is  no  response  within  30 
seconds,  or  an  8  prompt  appears,  the  attempt  has  failed  and  you  should  move  on 
to  the  next  procedure.  [When  there  is  no  response,  you  must  hit  the  BREAK  key 
to  return  to  QDT. 1 

1.  Enter:  4<SHIFT>G 

2.  Enter:  1 73 0 0 0 < SH I F T > G 

3.  Cycle  the  power  switch  for  the  computer  and  perform  the  procedure  for  a 
cold  start. 


3.2.2  Data  Retrieval  Routines 

The  data  retrieval  routines  are  used  to  read  the  information  from  the  data 
tapes  for  performing  tape  summaries,  creating  data  messages,  or  repeating  the 
real-time  analysis.  Normally,  routine  SCAN  will  be  performed  as  soon  as  a 
tape  is  removed  from  the  data  acquisition  system,  so  that  it  can  easily  be 
seen  what  signals  of  interest  are  contained  on  the  tape. 
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3.2.2. 1  AZSCAN 

This  routine  Kill  scan  the  tape  far  all  signals  within  operator  specified 
parameters,  and  provide  average  values  at  the  end  of  the  scan.  It  is 
particularly  useful  for  summarizing  a  large  group  of  similiar  signals,  or  for 
searching  for  signals  fro*  a  specific  azimuth  range.  Two  examples  are  given 
to  illustrate  the  use  of  this  program. 

To  summarize  a  microbarom  event  at  an  azimuth  of  270  degrees  or  so:  Using 
the  output  from  a  SCAN  of  the  tape,  find  the  block  numbers  of  the  first  and 
last  signals  of  interest.  Find  the  minimum  and  maximum  values  of  azimuth  and 
velocity  for  all  of  the  signals  to  be  included  in  the  scan.  Run  AZSCAN. 
Choose  the  T  ar'r ay,  and  enter  default  values  (enter  <RETURN>)  for  all 
questions  except  Azimuth  MIN  2<  MAX,  Velocity  MIN  &  MAX,  and  Start  fc  Stop. 

To  produce  a  listing  of  all  events  that  were  caused  by  Mount  Erebus  on  the 
tape:  Choose  the  T  array,  and  enter  default  values  for  all  questions  except 
Minimum  Rho,  Statistics,  All,  Azimuth  MAX  &  MIN,  and  CVMAX.  Enter  -1.  for 
Minimum  Rho,  answer  "Y"  to  Statistics  and  Ail,  enter  an  azimuth  range  of 
325. ,345.  and  a  CVMAX  of  12. 


3. 2. 2. 2  READ 

This  routine  repeats  the  real-time  analysis  performed  by  RTG8CH  except  that 
data  is  read  from  the  tape  rather  than  collected  by  the  A2D  converter.  This 
program  is  especially  useful  for  performing  analysis  with  the  exclusion  of  one 
channel  (in  the  case  of  channel  failure),  or  for  increasing  the  "tweak"  factor 
of  the  polarization  filter. 


3. 2. 2. 3  RPTSCN 

This  routine  scans  the  tape  for  blocks  of  interest  and  sends  the  information 
to  a  file  in  the  form  of  a  data  message.  A  provision  is  made  for  excluding 
any  signals  that  are  to  be  included  in  a  signal  group  summary.  The  output 
file  is  a  data  message  in  rough  form,  which  must  be  edited  slightly  before  the 
tape  and  hard  copy  are  cut. 


3. 2. 2. 4  SCAN 

This  routine  scans  a  tape  for  all  blocks  with  the  prefiitered  correlation 
coefficient  greater  than  a  user  specified  minimum.  This  is  normally  the  first 
routine  to  be  run  in  the  course  of  preparing  a  data  message. 
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2.2.5  SCNTWK 


This  routine  combines  the  capabilities  of  routines  SCAN  and  READ.  It  allows 
a  tape  to  be  re-analy:ed  las  would  READ),  but  the  output  is  only  of  those 
blocks  where  the  postfiltered  correlation  coefficient  is  greater  than  a  user 
specified  minimum.  A  few  portions  of  the  RTS8CH  analysts  algoritha  are 
skipped,  in  order  to  reduce  execution  time,  as  these  are  not  necessary  for  the 
final  output  of  this  routine. 


3. 2. 2. 6  STATS 

This  routine  summarizes  the  data  statistics  values  for  each  block  in  a 
tape.  It  is  priaarily  used  for  background  wind  noise  analysis,  or  for 
retreiving  the  data  during  a  microphone  calibration.  A  provision  is  made  for 
summarizing  the  statistics  of  blocks  of  interest  rather  than  all  blocks. 


3.2.3  Offline  Analysis  Routines 

The  Offline  Analysis  Routines  permit  additional  analysis  of  the  data  to  be 
performed  as  necessary.  This  set  of  routines  falls  into  three  categories: 
data  handling  utilities,  filters,  and  analysis  routines. 

In  order  to  use  these  routines,  the  data  must  first  be  removed  from  the 
tape,  unscrambled,  and  stored  in  a  disk  file.  The  data  handling  utilities  are 
used  to  maneuver  these  disk  files.  DATGET  is  the  utility  to  retrieve  the  data 
from  the  tape  and  place  it  in  a  data  block  file.  RECGET  will  copy  a  single 
channel's  data  from  a  data  block  file  and  place  it  in  a  data  record  file. 
DATLST  will  dump  the  contents  of  a  data  record  file  to  the  operator's 
console.  DATPLT  will  produce  a  crude  line  printer  plot  of  the  contents  of  a 
data  record  file. 

The  filter  routines  use  a  data  block  file  as  an  input,  and  produce  a 
similar  data  block  file  containing  the  filtered  data.  BEfIFIL  filters  the 
data  through  the  use  of  a  frequency  dependent  beam-steer  vector.  PUREFl 
filters  the  data  through  the  use  of  the  frequency  dependent  degree  of 
polarization.  PQLFIL  is  similiar  to  PUREFL,  except  that  it  can  handle  data 
blocks  with  records  longer  than  512  points,  and  uses  a  sliding  window  approach 
to  filter  the  entire  block. 

The  analysis  routines  operate  on  the  data  in  a  data  block  file,  and  produce 
video  graphics,  a  hard  copy,  or  a  message  file  as  an  output.  ANLYZ  performs 
time  domain  analysis  on  records  of  variable  length.  FKDET  produces  a  "contour 
map"  of  slowness  (inverse  velocity)  versus  azimuth  at  a  user  specified 
frequency.  There  are  two  versions  of  FKDET,  one  which  produces  video  output, 
and  the  second  which  produces  output  in  the  form  of  a  message  file.  SfuTRII 
produces  a  listing  of  the  power  spectrum  for  up  to  four  channels  of  data. 
5PEKT2  produces  a  listing  of  the  Dower,  coherency,  phase  and  trace  spectra  for 
any  two  records  from  a  data  block  file.  DATGRF  produces  a  video  graphics 
display  of  up  to  four  records  from  a  data  block  file,  with  provisions  for 
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vertical  scaling.  QVRLAY  produces  a  video  graphics  display  of  3  or  4  records 
froa  a  data  block  file,  overlayed  upon  one  another  and  shifted  by  operator 
input  tme  lags;  with  provisions  for  vertical  scaling  and  a  time  scale  zoom. 

3.2.4  Programming  Languages 

Assemblers,  compilers,  translators  and  interpreters  are  the  routines  that 
take  a  user  written  program  and  convert  it  to  a  machine  executable  code.  Each 
computer  language  has  its  own  such  routine.  Infrasonics  RT-11  supports  four 
languages:  MACRO- 1 1 ,  FORTRAN,  PASCAL  and  BASIC. 

MACRO-11  is  the  assembly  language  for  the  PDP-11  series  of  computers.  It 
allows  a  more  efficient  use  of  system  resources  than  the  higher  level 
languages,  at  the  expense  of  software  simplicity.  See  RT-11  Volute  3,  and  the 
H  icr  o  cot  put  er  Processor  Handbook  for  more  information. 

RT-11  supports  ANSI  standard  FORTRAN  IV  ,  and  provides  a  comprehensive 
library  of  system  subroutines  to  ease  the  transfer  of  data  to  system  devices, 
and  handle  commonly  used  algorithms.  In  addition,  the  Infrasonics  Lab  has 
libraries  of  FORTRAN  subroutines  for  advanced  computations  and  PLOT-10 
graphics.  See  RT-11  Volute  4 ,  RT-11  Volute  6,  PLOT-10  Graphics  Manuals,  and 
Fortran  For  Hutans  for  more  information. 

PASCAL  is  supported  by  a  language  translator.  This  routine  translates  a 
file  of  PASCAL  source  code  into  a  file  of  MACRO  source  code,  which  may  then  be 
assembled  as  any  MACRO  program.  See  RT-11  Volute  5  and  A  Practical 
Introduction  to  PASCAL  for  further  information. 

RT-11  also  supports  BASIC-11.  BASIC  is  an  interpreter,  which  means  that  it 
compiles  user  programs  interactively.  This  feature  makes  it  very  useful  for 
simple  calculations  or  experimental  programming,  as  changes  to  the  program  can 
be  made  simply  and  quickly.  See  RT-11  Volute  5  and  Introduction  to  SASIC  for 
more  information. 

The  output  of  each  of  the  language  handlers  is  a  machine  object  code.  One 
final  step  must  be  performed  before  this  object  code  is  in  a  machine 
executable  form.  The  RT-11  Link  Utility  performs  this  task,  by  linking 
together  the  program  and  its  subroutines  (if  any)  into  an  executable  memory 
image  file.  See  RT-11  Volute  2  for  more  information. 

3. 2.5  Utilities 

RT-11  Provides  a  number  of  utilities  for  file  transfers,  device  directories, 
text  editing,  and  so  forth.  These  are  described  in  the  System  User's  Guide  in 
RT-11  Volute  2. 

In  addition,  these  utilities  have  been  written  for  the  Infrasonics  System: 
CLEAR  clears  all  information  from  the  operator's  console  screen  and  sets  the 
console  to  ADM-3A  mode.  LPINIT  initializes  the  line  printer  for  12 
character/inch,  6  line/inch  printing  with  a  1  inch  left  margin  and  1/2  inch 
top  and  bottom  margins.  LP16  initializes  the  line  printer  for  16 


* 


character /inch ,  6  line/inch  printing  with  a  1  inch  left  margin,  but  no 
skip-over-perf oration  (top  and  bottom  margins).  REWIND  causes  the  tape  on 
MT0:  to  rewind.  SETDAT  sets  the  RT-11  system  calendar  and  clock  from  the 
TCU-50  battery  powered  clock.  SETTCU  sets  the  TCU-50  clock  from  the  RT-ll 
system  calendar  and  clock.  CP  bootstraps  the  CP / M  emulator.  All  of  these 
utilities  are  invoked  by  the  .R  monitor  command. 


3.3  CP/M 
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A  Decmation  D100Q  CP/M  Emulator  (2-80  processor  with  64  kbytes  of  memory) 
allows  software  written  for  many  home  computers  to  be  used  on  the  Infrasonics 
system.  The  advantage  of  this  is  that  the  competition  in  the  home  computer 
software  market  is  keeping  the  prices  low.  Although  RT-11  must  be  present  in 
order  to  invoke  CP/M,  once  this  has  been  done,  the  computer  behaves  as  if  it 
were  a  CP/M  machine  and  mast  inter-system  data  transfers  are  transparent  to 
the  user.  There  are  a  few  exceptions  to  this  rule,  where  utility  routines 
have  been  made  available  to  bypass  slow  and  awkward  data  transfer.  For 
example,  data  transfers  from  a  text  processor  directly  to  the  line  printer  are 
unbelievably  slow,  so  an  intermediate  step  is  taken  by  sending  printer  output 
from  a  CP/M  routine  first  to  an  RT-11  file,  DK: CRAYON. LST.  This  file  is  then 
printed  using  the  RT-11  monitor  command  .PRINT  CRAYON.  For  more  information 
see  the  D100Q  manual  in  CP/H  Volune  1  and  The  CP/H  Handbook. 


The  actual  CP/M  operating  system  takes  only  two  disk  blocks.  Since  these 
two  blocks  are  reserved  for  CP/M,  writing  CP/M  onto  all  CP/M  format  disks 
costs  no  additional  overhead,  and  is  highly  recommended.  Use  SENSYS  to  write 
CP/M  onto  a  new  disk. 

Five  working  CP/M  system  disks  are  provided.  CP/M  System  with  PALANTIR 
includes  most  of  the  standard  CP/M  utilities  and  the  PALANTIR  Word  Processor 
(WP)  .  MINCE  !t  SCRIBBLE  includes  a  few  file  handling  and  data  transfer 
utilities,  and  the  Amethyst  (i.e.  MINCE,  SCRIBBLE,  and  CRAYON)  text  processing 
routines.  The  SCRIBBLE  Disk  contains  a  subset  of  the  MINCE  Si  SCRIBBLE  disk 
and  is  intended  for  “scribbling"  a  large  number  of  files  together.  The  BDS  C 
Working  Disk  contains  compilers,  libraries  and  the  link  utility  for  BDS  C. 
FORTH  Working  Disk  contains  the  FORTH  interpreter  and  screen  files. 


3.3.1  Bootstrapping 

To  invoke  CP/M,  you  must  first  have  booted  an  RT-ll  system  disk  with  the 


files  CP.SAV  and  CPM.INI  on  it.  By  issuing  the  monitor  command  .R  CP  the 
D100Q  control  program  is  invoked.  A  — >  prompt  indicates  the  D100Q  Control 
level.  At  this  level  RT-11  to  CP/M  logical  device  assignments  are  made,  and 
then  the  CP/M  disk  is  bootstrapped.  The  command  file  CPM.INI  does  this 
automatically.  When  the  A>  prompt  appears,  CP/M  is  running,  and  disk  A  is  the 
default  disk. 


3.3.2  A  Few  Idi osyncraci es 

The  delete  (  <SHIFTXRUB>  )  key  does  not  serve  its  noraal  function  of 
backspacing  and  erasing  the  previous  character  in  CP/N  as  it  does  in  RT-11. 
Using  the  backspace  (  <CTRL>H  )  in  CP/M  serves  the  sane  purpose  as  the  delete 
in  RT-11.  (The  delete  key  does,  however,  serve  its  noraal  function  in  MINCE.) 

The  caret  *A*  is  used  by  the  D100Q  as  a  control  character  prefix.  This  is 
available  to  get  around  the  fact  that  <CTRL>S  and  <CTRL>Q  still  perfora  their 
noraal  RT-11  functions  of  pausing  the  screen  display.  If  these  control  codes 
are  to  be  used  by  a  CP/M  routine,  AS  (caret-S)  and  AQ  will  perfora  that 
function. 

If  it  becoaes  necessary  to  change  the  logical  device  assignaents,  or  abort  a 
CP/M  prograa,  entering  AC  (caret-C)  will  return  to  the  D100Q  Control  level. 
The  D100Q  Control  level  conaands  are  described  in  the  D100Q  aanual  in  CP/H 
Volute  1. 


3.3.3  Returning  to  RT-11 

Exit  froa  CP/M  to  the  Q100Q  Control  level  by  entering  AC  (caret-C).  The 
D100Q  Control  level  caaaand  “bye"  will  return  the  coaputer  to  RT-11. 


3.3.4  Text  Handlers 

Three  text  handlers  are  available  on  the  Infrasonics  CP/M  systea.  MINCE, 
SCRIBBLE,  CRAYON  and  PENCIL  are  part  of  a  text  processing  package  aarketed  as 
Aaethyst  .  MINCE  is  a  powerful  screen  editor,  SCRIBBLE  is  a  text  foraatter, 
CRAYON  is  a  utility  for  sending  the  finished  product  froa  SCRIBBLE  to  the 
printer,  and  PENCIL  is  a  utility  for  sending  any  text  file  to  the  printer  in  a 
"dressed  up"  fora.  PALANTIR  is  an  interactive  word  processor  which,  in  soae 
ways,  coabines  the  capabilities  of  MINCE  and  SCRIBBLE,  however  MINCE  and 
SCRIBBLE  have  auch  less  overhead  in  teras  of  aeaory  and  disk  space  and  are 
saaewhat  aore  powerful.  Each  one  has  its  advantages.  See  CP/H  Volute  2  for 
aore  inforaation. 


3.3.5  Prograaaing  Languages 

The  CP/M  systea  supports  three  prograaaing  languages.  ASM  is  an  asseabler 
for  the  Intel  8080  processor.  FORTH  is  an  interactive  language  interpreter. 
And  BBS  C  is  a  coapiler.  For  additional  inforaation,  consult  CP/H  Volute  1 , 
CP/H  Volute  2,  Discover  Forth ,  and  The  C  Prograttin  g  Language. 
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3.3.6  Utilities 

The  standard  CP/M  utilities  are  provided  for  file  transfers,  text  handling 
and  other  systee  needs.  These  include  DDT,  DUMP,  ED,  LOAD,  MQVCPM,  PIP,  STAT, 
SUBMIT,  UNLOAD  and  X SUB .  These  are  described  in  The  CP/H  Handbook. 

A  nuaber  of  additional  utilities  are  provided  with  the  CP/M  systea.  CAT  is 
an  extended  device  directory  utility.  ALPH  alphabetizes  a  text  file  by 
lines.  GENSYS  writes  CP/M  onto  a  new  disk.  INITFL  initializes  the  directory 
of  a  disk.  OTHELLO  is  a  gaae.  REC  transfers  RT-11  files  to  CP/M  files.  SEN 
transfers  CP/M  files  to  RT-U  files  or  devices. 


Chapter  4 
SYSTEM  OPERATION 


4ii_Rgytine_Qeerating_Prgcedures 


4.1.1  Daily  Obs 

These  are  the  duties  which  aust  be  perforaed  daily  at  about  1:319  pa  ( 0 1 30UT ) 
in  order  to  aaintain  a  ainiaua  of  data  collection: 


4. 1.1.1  EA  Chart  Records 

1.  Mark  the  current  (Universal)  date  and  (Universal)  tine,  and  the  station 
naae  on  each  of  the  four  Esterline  Angus  chart  records  in  the  grey 
equipaent  rack.  There  is  a  clock  in  the  top  of  the  blue  and  white 
equipaent  rack.  You  can  read  the  proper  date  froa  the  coaputer  terainal 
by  the  coaputer  rooa  door. 

2.  Replace  each  chart  with  a  new  chart  (stored  an  top  of  the  grey  equipaent 

rack).  Using  the  knob  to  the  right  of  the  writing  surface,  advance  the 

chart  about  six  inches,  then  cut  or  tear  the  chart  just  below  the 
writing  surface.  Now  wind  the  reaaining  supply  chart  back  froa  the 
writing  surface,  and  pull  the  paper  out  of  the  feed  slot.  This  will 
expose  the  instruction  panel  which  will  provide  further  inforaation. 

3.  Mark  the  current  date  and  (Universal)  tine,  and  the  station  naae  on  each 
of  the  four  new  charts. 

4.  Put  the  old  charts  into  the  boxes  (that  you  took  the  new  charts  out  of) 

and  label  each  box  with  station  naae,  start  date  (yesterday's  date)  and 

stop  date;  and  store  thea  in  the  large  box  on  the  floor.  Dispose  of  the 
unused  chart  paper  in  the  bag  beside  the  grey  equipaent  rack. 


4. 1.1.2  Slow-Speed  Analogue  Tape 

Put  a  tiae  aark  on  the  slow-speed  analogue  tape  (in  the  bottoa  of  the  grey 
equipaent)  according  to  the  foraat  shown  on  the  labels  on  the  tape  transport. 
This  tiae  aark  should  be  aade  on  soae  aultiple  of  five  ainutes. 
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4. 1. 1.3  Helicorder 


Change  the  helicorder  chart  as  follows: 

1.  Pull  the  STYLUS  LIFT  knob  out 

2.  Pull  the  OFF/ON/RESET  knob  out  and  rotate  counter-clockwise  until  the 
left  stylus  is  about  1/4  inch  fro*  the  left  edge  of  the  drua 

3.  Rotate  the  drua  until  the  crack  is  facing  you.  On  each  side  of  the  drum 

there  is  a  large  knob  and  a  snail  latch.  Rotate  the  two  large  knobs  in 

opposite  directions  so  that  the  paper  lifts  away  froa  the  drua.  Mhen 
the  paper  is  loose,  rotate  the  latches  (one  up  and  the  other  down)  to 
release  the  paper.  Reaove  the  paper  from  the  drua,  and  place  on  the 
battery  box  in  the  stack  near  the  wall. 

4.  Write  the  time  and  date  that  the  chart  was  stopped  at  the  bottoa  of  the 
chart. 

5.  Take  a  blank  piece  of  chart  paper  from  the  stack  near  you  on  the  battery 

box.  Only  one  side  of  the  paper  will  write,  so  be  sure  that  the  side 

that  is  up  in  the  stack  ends  up  on  the  outside  when  on  the  drua. 

6.  Insert  one  end  of  the  paper  into  the  crack,  and  rotate  the  drua  (up  and 

away  from  you)  so  that  the  paper  wraps  around  the  drua.  Now  insert  the 

other  end  of  the  paper  into  the  crack  and  close  the  latches  (saall  knobs 
towards  center  of  drua).  Turn  the  large  knobs  until  the  paper  pulls 
tight  against  the  drua.  If  one  edge  is  tight  before  the  other,  do  not 
worry  as  it  will  slip  rather  than  tear  the  paper. 

7.  Write  the  tiae  and  date  along  the  left  edge  of  the  paper,  above  the 

crack.  Move  the  crack  up  near  the  styli,  and  mark  on  the  paper  near 

each  stylus:  A  for  the  left  stylus,  V  for  the  center,  and  N  for  the 
right  stylus. 

3.  Move  the  0FF/QN/RE5ET  knob  to  the  center  position,  and  push  the  STYLUS 
LIFT  knob  in.  If  the  trace  does  not  begin  writing  within  30  seconds, 
insure  that  the  control  knob  is  in  the  center  position. 


4. 1 . 1 . 4  Audio  Tones 

Using  the  headphones  hanging  froa  the  front  of  the  blue  and  white  equipment 
rack,  check  each  of  the  seven  tones  (each  of  seven  pairs  of  banana  plugs). 
The  tone  should  be  clear  and  reasonably  loud.  If  the  tone  is  not  present,  or 
sounds  distorted,  consult  the  chapter  on  Troubleshooting. 
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4. 1 . 1 . 5  Digital  System 

Check  the  operation  of  the  printer  by  the  open  window,  particularly  that  the 
ink  ribbon  and  piper  are  feeding  properly.  The  printer  should  print  one  or 
nore  lines  every  minute  or  so.  If  this  is  not  the  case,  check  the  following: 

1.  If  the  bottoe  line  shown  on  the  terminal  is  * **HUNG !  *•* "  the  output 
should  continue  within  five  flinutes.  If  not,  start  a  new  tape  (see 
below) . 
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2.  Under  normal  circumstances,  the  output  lines  are  mostly  numbers.  An 
error  condition  will  cause  the  output  of  one  or  more  lines  of  text 
message.  In  most  cases,  this  message  will  repeat  every  128  seconds. 
Check  the  tape  transport  in  the  top  of  the  right  equipment  rack  in  the 
computer  room.  If  the  ON  LINE  indicator  is  not  lit  but  the  tape  is 
loaded  (i.e.  the  tape  is  under  tension  from  the  tension  arms,  push  the 
ON  LINE  button.  Otherwise,  it  will  probably  be  necessary  to  start  a  new 
tape. 

3.  If  the  terminal  is  still  outputting  lines,  but  the  printer  is  not 
echoing  them,  then  the  problem  lies  with  the  printer.  Check  the  power. 
There  is  a  reed  switch  which  has  been  taped  down  to  allow  operation 
without  the  cover.  This  may  have  come  loose.  If  problems  persist, 
consult  the  IDS-440  manual  in  Equipaent  Volute  4. 


4. 1. 1.6  Log  Book  Entries 

Enter  the  following  information  in  the  log  book  on  the  desk: 

1.  Universal  date 

2.  Outdoor  temperature  in  Celsius  (thermometer  by  front  door) 

3.  Indoor  temperatur e  in  celsius  (thermometer  between  breaker  boxes) 

4.  Relative  humidity  (RH  meter  above  breaker  boxes) 

*  • 

5.  Universal  time  that  charts  were  changed 

6.  Universal  time  that  analogue  tape  was  marked 

7.  Universal  time  that  helicorder  was  changed 

8.  Any  remarks  regarding  serious  data  loss 
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4.1.2  Computer  Systea  Operation 


4. 1.2.1  Changing  The  Tape 


A  data  tape  Mill  last  for  five  days  (approxiaatel y  3350  blocks)  with  several 
hours  of  leeMay.  The  current  block  nuaber  is  the  nuaber  iaaediately  following 
a  **'  (nuaber)  syabol  in  the  first  coluan  of  output.  A  new  block  nuaber  is 


output  about  every  20  lines.  Follow  these  steps  to  change  the  tape: 


1.  To  initiate  a  tape  change,  enter  <SHIFT>  R  on  the  terainal  keyboard. 
When  the  coaputer  finishes  analyzing  the  current  block,  it  Mill  start 
reMinding  the  tape  and  issue  the  response  'PAUSE  —  Mount  Tape!!' 


Blank  tapes  are  stared  on  the  lower  shelves  of  the  tape  rack  (or  in 

boxes  in  the  left  part  of  the  storage  shelves  in  the  back  of  the  roon). 

Take  a  blank  tape  and  remove  the  hanging  ring  and  the  adhesive  tape  that 
holds  the  end  of  the  magnetic  tape.  Save  the  adhesive  tape  on  the  front 

of  the  tape  reel.  Put  a  tape  label  on  the  reel  and  mark  the  tape 

number.  Labels  are  stored  on  the  light  table,  or  may  be  found  in  a  new 
box  of  tapes. 


3.  When  the  old  tape  stops  rewinding,  push  the  ‘rewind*  button  to  unload 
the  tape. 


4.  Remove  the  tape  reel  by  pulling  out  the  knob  in  the  center  of  the  reel. 


5.  Remove  the  plastic  ring  from  the  back  of  the  reel  of  the  old  tape.  Put 
the  reel  into  a  hanging  ring  to  protect  the  tape  from  dust. 


6.  Clean  the  tape  head  and  tape  path  with  the  aerosol  cleaner  and  q-tips 
which  are  stored  above  the  storage  drawers  to  the  right  of  the  equipment 
racks. 


7.  Mount  the  new  tape.  The  tape  path  is  shown  on  the  front  of  the  tape 
transport.  Be  sure  that  the  fluxgate  is  firmly  against  the  tape  head 
after  the  tape  is  in  place. 


3.  Load  the  tape  by  pressing  the  LOAD  button, 
load  point  and  the  button  will  illuminate. 


The  tape  will  advance  to  the 


Press  the  ON  LINE  button,  and  insure  that  the  button  is  illuminated. 


10.  Return  to  the  work  room.  Enter  <RETURN>  on  the  terminal  keyboard.  The 
coaputer  will  print  the  status  of  the  tape  transport.  If  the  tape  is  ON 
LINE,  at  BOT  and  NOT  WRITE  PROTECTED,  you  may  proceed  with  the  startup 
dialogue,  which  consists  of  five  questions.  Unless  one  of  the 
microphones  has  failed,  or  the  time  is  more  than  60  seconds  off,  all 
questions  may  be  answered  by  simply  entering  <RETURN>  —  except  the 
question  'Year"’"  which  must  be  answered  with  a  two  digit  integer 
followed  by  <R£TURN>.  If,  however  the  tape  transport  is  not  ready, 
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correct  the  problem  before  proceeding  with  the  dialogue.  (If  INITAP  did 
not  fail  to  initialize,  you  oust  answer  the  first  question  with  Y 
<RETURN>  after  correcting  the  problem. 

11.  The  computer  should  now  operate  without  further  intervention  for  another 
five  days.  It  will  be  about  two  ainutes  before  the  first  line  is 
output. 

12.  Remove  the  past  five  days'  printout  from  behind  the  printer  and  store  it 
on  the  couch.  Be  sure  that  the  current  printout  is  folding  properly. 


4. 1.2.2  Log  Book  Entries 

Record  the  following  in  the  log  book: 

1.  The  old  tape  number  and  stop  time 

2.  The  new  tape  number  and  start  time 

3.  The  number  of  blocks  on  the  old  tape 


4.1.3  Supplies 

A  printer  ribbon  will  generally  last  about  10  days.  Ribbons  are  stored  at 
the  left  side  of  the  shelves  near  the  printer,  in  blue  and  white  boxes. 

A  case  of  paper  will  generally  last  about  20  days.  Paper  is  stored  on  the 
bottom  shelf  in  the  back  of  the  computer  room. 

A  case  of  charts  will  generally  last  about  one  month.  Charts  are  stored  at 
the  right  side  of  the  storage  shelves  in  the  computer  room. 


4i2_2ita_Messages 


4.2.1  Data  Message  Preparation 

After  removing  each  tape  from  the  Data  Acquisition  5ystem,  a  data  message 
summarizing  the  contents  of  the  tape  should  be  prepared  and  sent  to  the 
Geophysical  Institute.  Several  Data  Retrieval  routines  have  beer,  written  to 
accomplish  this  task  in  an  efficient  manner. 

Data  messages  are  transmitted  from  Mcffurdo  station  via  the  Navy 
communications  network,  which  entails  a  fairly  complex  scheme  of  message 
routing  format  that  must  be  included  as  header  and  trailer  information  to  the 
message  itself.  In  addition,  the  messages  are  transmitted  by  archaic 
radi otel etype  equipment,  which  requires  that  the  message  be  cut  onto  a  5-level 
Baudot  code  paper  tape.  Although  text  messages  must  be  approved  by  the  NSF 
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Rep  or  Station  Science  Leader,  data  messages  aay  be  prepared  and  delivered 
directly  to  the  Communications  Department  in  Building  165.  A  block  of  message 
serial  nuabers  has  been  alloted  to  Infrasonics,  and  a  log  book  of  the  use  of 
these  nuabers  is  aaintained.  The  aessage  header  and  end-of -message  formats 
are  described  on  the  first  page  of  the  Data  Hessage  Log  book. 
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Use  the  following  procedure  to  prepare  a  data  aessage  for  transmission: 

1.  Bootstrap  the  Offline  Analysis  Computer  with  the  System  84  disk  in  drive 
0  and  the  Scan  Files  disk  in  drive  1.  Clean  the  tape  head  and  then  aount 
the  tape  on  the  tape  transport  above  the  disk  drives.  (Be  sure  that  the 
write  enable  ring  has  been  removed,  and  that  the  transport  is  on-line.) 

2.  Produce  a  tape  scan  using  the  program  SCAN  .  Entering  default  values  for 
all  questions  (except  F,  T,  or  B')>  will  produce  a  scan  of  the  tape  on 
the  line  printer.  A  pass  for  the  T  array  should  be  performed  first, 
followed  by  a  pass  for  the  F  array.  Upon  completion  of  each  scan  pass, 
the  program  will  ask  whether  you  want  to  continue  from  the  current  tape 
position,  rewind  the  tape,  or  exit  the  program.  After  the  first  pass 
the  tape  should  be  rewound,  and  after  the  last  the  program  should  be 
exited.  (Note:  exiting  the  program  by  use  of  a  <CTRL>C  will  cause  the 
last  part  of  the  scan  to  be  lost.)  Use  the  rewind  utility  (.R  REWIND) 
to  rewind  the  tape  after  exiting  a  data  retrieval  program. 

3.  Inspect  the  information  from  the  tape  scan  for  groupings  of  similiar 
signals  which  can  be  summarized  as  a  single  event.  Typically,  groupings 
will  be  of  aicrobarom  or  mountain  associated  infrasound  events.  Look 
for  10  or  more  blocks  within  a  24-hour  oeriod  with  similiar  azimuth, 
velocity  and  variance  values.  Find  the  block  numbers  of  the  first  and 
last  block  in  each  grouping.  Using  this  information,  and  program 
AZSCAN,  summaries  of  each  of  these  groupings  can  be  produced.  One  pass 
of  AZSCAN  must  be  made  for  each  grouping.  As  with  SCAN,  after  each  pass 
the  choice  of  continuing,  rewinding  or  exiting  is  given. 


4.  Program  RPTSCN  may  now  be  used  to  produce  a  disk  file  containing 
summaries  of  all  of  the  events  not  included  in  groupings  in  the  standard 
data  message  format.  RPTSCN  will  query  for  information  required  for  the 
message  header  and  then  ask  for  SKIP  PAPAMS,  the  parameters  of  the 
groupings,  in  order  to  skip  those  signals  which  are  included  in  event 
groupings.  Once  again,  two  passes  must  be  made,  one  for  each  array,  and 
the  same  three  choices  are  available  at  the  completion  of  each  pass. 


5.  The  output  of  RPTSCN  is  a  file  on  drive  1  called  DY1 : FTN19. DAT.  This 
file  must  be  edited  to  add  the  start  and  stco  times  of  the  tape,  and  the 
grouping  summaries.  Insure  that  the  Hmce  and  Scribble  disk  is  in  drive 
2  and  the  Hessage  Files  disk  is  in  drive  Using  the  monitor  command 
.R  CP,  boot  the  CP/M  system. 

6.  Transfer  the  data  message  file  to  CP/M  with  the  command  A>REC 
8:MTyynn.MSG  (where  yynn  is  the  tape  year  and  number).  The  REC  utility 
will  give  a  prompt  for  the  RT-ll  file  specification  (DYliFTN19.DAT). 
Using  the  screen  editor,  MINCE,  add  the  tape  information  and  the  event 
grouping  summaries  to  the  file. 


7.  Send  the  finished  date  message  to  the  paper  tape  punch  (be  sure  that  the 
punch  is  turned  on)  using  the  SEN  utility  (A>SEN  B:MTyynn.MSG) .  The  SEN 
utility  will  prompt  for  the  destination  file  specification  (which  is 
PC:).  When  the  CP/M  prompt  returns  indicating  that  the  tape  is  punched, 
exit  to  the  CP/M  Control  Level  (caret-C)  and  enter  the  command  S£N:LP: 
in  order  to  direct  the  SEN  utility  output  to  the  line  printer.  Use  the 
coaaand  GO  to  return  to  CP/M.  Enter  the  command  SEN  B: MTyynn . MSG  to  make 
a  hard  copy  of  the  data  message.  When  the  CP/M  prompt  returns, 
form-feed  the  printer  and  make  a  second  copy  using  the  SEN  utility  once 
again. 

9.  Enter  the  appropriate  information  in  the  Data  Message  Log  book,  and  save 
one  of  the  hard  copies  in  the  Message  Traffic  book.  Deliver  the  paper 
tape  and  the  other  hard  copy  to  the  Communications  Department. 

9.  Rewind  the  tape  and  remove  it  from  the  transport.  Insure  that  the  start 
time,  stop  time,  and  number  of  blocks  are  written  on  the  tape  label,  and 
that  the  tape  number,  program  name  and  revision  number  are  written  on 
the  label  in  the  Tape-in-Seal. 


4.2.2  Message  Format 

The  details  of  the  Navy  message  header  and  end-of-message  are  given  in  the 
Data  Message  Log  book.  Starting  after  the  SUBJ:  line,  each  "paragraph”  is 
numbered.  Para  1  contains  information  on  the  tape  itself: 

1. MT84-59  0150UT  25SEP94  TO  0143UT  30SEP84  33S9BL0CKS 

and  paras  2  and  following  contain  information  about  the  signals  on  the  tape. 
All  N-6  (T)  array  groupings  are  listed  first,  followed  by  all  individual  N-6 
array  signals.  These  are  fallowed  by  all  N-7  (F)  array  groupings,  and  finally 
by  the  N-7  array  individual  signals.  An  unnumbered  comment  or  greeting 
follows  the  signal  information,  and  this  is  followed  by  the  end-of-message. 
The  following  is  a  typical  grouping  summary  and  a  typical  individual  event 
summary : 

2.  MB : 033 1 UT  27SEP  TO  0113UT  28SEP  BKS 1392-1 99 1  1 345 1 S  AZR256-274 
SE6.8  MAXR0.91  AVDR0.11  MAXDR0. 20  A2269  CZ2  V352  CV14 

3.  T:  9509LIT  26SEP  9K1071  SE7  R0.79  DR0.16  AZ261  CZ2  V361  CV 1 5 

The  abbreviations  used  in  the  messages  are  as  follows: 

T:  individual  N-&  array  signal 

F:  individual  N-7  array  signal 

MB:  summary  of  microbarom  event  grouping 

ER:  individual  (or  group  of)  erebus  related  signal(s) 

MAI:  summary  of  mountain  associated  infrasound  event  grouping 

AIM:  individual  (or  group  of)  auroral  infrasonic  wave  signal(s) 

UT  universal  time 

BK(S)  block  number  (or  range  of  block  numbers) 

SIG  number  of  signals  in  grouping 

AZR  azimuth  range  of  signals  in  grouping 

SE  peak  spectral  estimate  (of  period)  of  wave  in  seconds 


M A X R  maximum  value  of  average  correlation  coefficient  (after  filtering) 

R  value  of  average  correlation  coefficient  (after  filtering) 

AVDR  average  value  of  change  in  correlation  coefficient  (due  to  filtering) 

MAXDR  aaxiaua  value  of  change  in  correlation  coefficient  (due  to  filtering) 

DR  value  of  change  in  correlation  coefficient  (due  to  filtering) 

A2  estiaate  of  azimuth  of  arrival  of  signal  (or  average  of  grouping  aziauths) 

CZ  variance  of  aziauth  estiaate  (or  average  of  grouping  variances) 

V  estimate  of  trace  velocity  of  signal  (or  average  of  grouping  velocities) 

CV  variance  of  velocity  estiaate  (or  average  of  grouping  variances) 

Each  line  must  end  with  two  carriage  returns  and  one  line  feed.  This  is 
done  automatically  by  RPTSCN  for  the  message  lines  that  it  creates. 
Additional  lines  added  by  the  operator  (as  in  step  6  above)  oust  include  an 
extra  carriage  return  prior  to  the  carriage  return  and  line  feed  that  are 

created  by  the  <RETURN>  key.  In  MINCE,  this  is  easily  accomplished  using  the 

seguence  AQ<CTRL>M  (i.e.  a  caret,  a  Q,  and  a  control-M)  just  prior  to  the 
< RETURN'/  key. 


4.3  Preventative  Maintenance 


This  section  contains  a  summary  of  the  periodic  preventative  maintenance 
tasks  which  should  be  performed  on  the  system  equipment.  All  preventative 
maintenance  (except  the  filling  of  EA  recorder  inkwells)  should  be  recorded  in 
the  Maintenance  Log  Book. 


4.3.1  Semi-Monthl y 

The  inkwells  in  the  EA  Chart  Recorders  should  be  filled  on  the  first  and 
fifteenth  of  each  month.  Ink  bottles,  a  filling  syringe  and  a  priming  syringe 
are  stored  on  the  shelves  between  the  heat  exchanger  windows.  Usually  the 
inkwells  will  hold  about  two  syringes  of  ink.  Do  not  overfill  the  inkwells. 


4.3.2  Monthly 

The  Air  Conditioner  (or  Heat  Pump,  as  local  engineers  prefer  to  call  it) 
filter  should  be  cleaned  during  the  first  week  of  each  month.  Remove  the 
front  panel  from  the  air  conditioner  and  take  out  the  foam  rubber  filter. 
Vacuum  the  filter,  or  wash  in  soapy  water  as  necessary,  and  replace  in  the  air 
conditioner. 


4.3.3  Bi-Monthly 

The  following  two  tasks  should  be  performed  during  the  first  week  of 
odd-numbered  months  (JAN,  MAR,  MAY,  JUL,  SEP,  &  NOV). 


The  print  heed  carriage  assembly  of  the  IDS-440  printer  should  be 
lubricated.  Consult  section  5.4.2  (page  5-7)  of  the  manual  in  £ quipaent 
Voluae  4.  A  bottle  of  NYE  oil  is  stored  in  the  Printer  Parts  box. 

The  water  level  and  specific  gravity  of  each  cell  in  the  fourteen  batteries 
for  the  UPS  systems  should  be  checked.  Any  battery  with  a  cell  with  a 
specific  gravity  less  than  1200  should  be  replaced.  The  battery  cable  may  be 
disconnected  from  the  UPS  without  any  effect  on  the  power  supply  (provided 
there  is  no  interruption  to  AC  power  while  the  batteries  are  disconnected). 
Exercise  caution  with  the  battery  cable  as  it  will  be  "hot"  until  disconnected 
from  both  the  UPS  and  the  batteries.  When  reconnecting  the  batteries  to  the 
UPS,  some  arcing  will  occur.  This  can  be  minimized  by  first  disconnecting  the 
third  battery  fro*  the  fourth,  then  connecting  the  battery  cable  tD  the  UPS, 
and  finally  reconnecting  the  third  and  fourth  batteries. 


4.3.4  Quarterly 

The  following  tasks  should  be  performed  during  the  first  week  of  the  first 
month  of  each  quarter  (JAN,  APR,  JUN,  &  SEP). 

The  Digi-Data  1749  Tape  Transports  should  be  thoroughly  cleaned  and  the  head 
and  capstan  inspected  for  wear.  Consult  sections  5.2,  5.5.2  and  5.3.3  (page 
5-1)  of  the  Digi-Data  1749  manual  in  Equipaent  Voluae  4. 

The  Epson  RX-80  Printer  should  be  cleaned  and  inspected.  Consult  page  4-1 
of  the  Epson  manual  in  Equipaent  Voluae  6. 

The  water  tank  and  humidifiers  should  be  cleaned,  and  the  humidifier  belts 
should  be  changed  if  necessary. 


4.3.5  Semi-Annually 

The  following  two  tasks  should  be  performed  during  the  first  week  of  April 
and  September. 

The  Elgar  UPS  units  sould  be  cleaned  and  inspected.  Consult  section  5.6 
(page  5-1)  of  the  UPS  manual  in  Equipaent  Voluae  4. 

The  ionizing  points  of  the  Aerostat  should  be  cleaned.  Carefully  insert 
each  point  into  a  rubber  eraser  (i.e.  a  pencil  eraser)  and  rotate  the  eraser 
to  remove  any  buildup. 

4.3.6  Annually 

The  following  tasks  should  be  performed  during  the  first  week  of  September. 

The  power  supply  voltages  of  the  PDP11  mounting  box  should  be  checked. 
Consult  the  BA  1 1 -N  section  of  the  Hicrocoaputer  Interfaces  Handbook. 
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The  Disk  Drives  should  be  cleaned  and  aligned.  Consult  page  5  of  Appendix  C 
of  the  DSD-440  manual ,  and  page  7-1  of  the  DSD-430  manual,  both  in  Equiptent 
Volute  5. 

The  Digi-Data  1749  Tape  Transport  requires  a  number  of  annual  alignment 
checks  to  be  performed.  These  are  listed  in  chapter  5,  and  described  in 
chapter  13  of  the  Digi-Data  1749  manual  in  Equipment  Volute  4. 

The  pitch  of  the  paper  tape  punch  of  the  Addmaster  510  should  be  checked. 
Consult  sections  5.3.2  and  5.3.3  (page  40)  of  the  Addmaster  510  manual  in 
Equiptent  Volute  5. 

The  bearings  of  the  EA  Chart  Recorders  and  of  the  Helicorder  should  be 
lubricated.  Consult  page  16  of  the  EA  manual  and  section  5.4  'cage  17!  of  the 
Helicorder  manual,  both  in  Equiptent  Volute  3. 

The  calibration  of  the  three  voltmeters  'Fluke  8060,  Fluke  8020  and  Triplett 
310)  and  the  oscilloscope  should  be  checked  against  some  reference  if 
possible.  The  Navy  electronics  shop  should  be  able  to  give  assistance.  If 
any  meter  is  well  out  of  calibration,  it  should  be  returned  to  the  states  for 
service. 


Chapter  3 

SYSTEM  CALIBRATION 


lii-OilECIEtion  • 


The  demodulators  should  be  calibrated  annually.  This  is  normally  done 
during  January  when  the  equipment  at  Windless  Bight  is  moved  to  the  surface  of 
the  snow.  A  calibration  must  also  be  performed  whenever  the  microphone, 
microphone  capsule  or  oscillator  is  replaced,  or  if  the  discriminator  card  is 
replaced  by  one  that  has  not  been  calibrated  for  that  channel. 

There  are  two  calibrator  control  boxes.  One  of  these  is  used  for  RTS  N-7, 
AUR,  VEE  and  NOV  and  supplies  30vdc  to  the  valve  and  6vdc  to  the  pump.  The 
other  box  is  used  for  ERE,  TER,  ROS  and  RTG  N-6  and  supplies  6vdc  to  the  valve 
and  12vdc  to  the  pump.  Schematics  of  the  two  cal ibrator/control  box 
assemblies  are  shown  in  figures  1  and  2.  Most  of  the  calibrators  have  a  four 
pin  connector,  but  some  have  a  six  pin  connector  instead.  A  4-pin  to  6-pin 
adapter  is  included  with  the  smaller  control  box.  Both  control  boxes  work  in 
the  same  way.  The  pump  switch  simply  turns  the  calibrator  pump  on  or  off.  A 
3-position  switch  is  provided  to  control  the  motion  of  the  valve.  The  switch 
is  set  to  the  CLOSED/CALIBRATE  position  to  move  the  valve  to  that  position. 
When  the  valve  is  fully  in  position,  the  indicator  lamp  will  glow  (brighter). 
At  this  time  the  switch  should  be  returned  to  the  off  (center)  position. 
Likewise,  the  switch  is  set  to  the  OPEN/OPERATE  position  to  move  the  valve  to 
that  position,  and  when  the  lamp  glows,  the  valve  is  in  position  and  the 
switch  should  be  turned  off.  It  takes  up  to  60  seconds  for  the  valve  to  move 
from  one  position  to  the  other. 

The  calibrator  itself  is  a  black  box  contained  in  the  microphone  can.  It  is 
an  essential  part  of  the  microphone,  and  must  always  be  installed.  Each 
calibrator  consists  of  a  valve  and  motor,  and  a  bellows  and  motor.  The  sice 
of  the  bellows  determines  the  peak  to  peak  swing  of  the  calibration  signal. 
All  calibrators  swing  approximately  10  microbars  peak  to  peak,  except  for  AUR 
k  NOV  which  are  8.4  microbars,  and  VEE  which  is  8.6  microbars.  The  speed  of 
the  bellows  motor  determines  the  period  of  the  calibration  signal.  N-7 
calibrators  have  about  a  15  second  period,  and  N-6  calibrators  have  about  a  7 
second  period.  If  the  period  of  the  signal  is  substantially  longer,  then  the 
pump  batteries  need  to  be  replaced.  Since  the  RTG  microphone  is  used  by  both 
arrays,  there  are  two  calibrators  for  it.  One  is  kept  in  the  microphone,  and 
the  other  is  kept  in  the  RTG  hut. 
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Calibrator  and  Controller  System 
for  RTG  N-7,  Aurora,  Vee,  k  Nova 


Calibrator  :  modified  N5  model 

B1  :  6  volt,  Eveready  731  or  equivalent 

B2,  B3  :  12  volt,  Eveready  732  or  equivalent 

51  «  SPST  miniature  toggle  :  CAL  ON/OFF 

52  j  DPDT  center  off  miniature  toggle  :  VALVE  OPEN/OFF/CLOSE 

Dl,  D2  s  Rectifier  diode,  1N4003  or  equivalent 

DS1  :  GE  1819  (28vDC,  40ma)  red  lens  :  CLOSED 

DS2  :  GE  1819  (28vDC,  40ma)  amber  lens  :  OPEN 

PI,  P2  s  5  pin  male  Amphenol  MS3106A-1^S-5P 

Jl,  J2  :  5  pin  female  Amphenol  MS3102A-14S-5S 


Figure  1.  Large  Control  Box  Schematic 
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Th*  discriminators  are  in  card  cages  in  the  grey  equipment  rack  in  the 
Infrasonics  Lab.  There  is  one  card  cage  for  each  array.  The  upper  card  cage, 
labeled  NBA,  is  for  the  N-6  array.  The  lower  card  cage,  labeled  SCB,  is  for 
the  N-7  array.  All  di scr i minator  cards  have  a  serial  number  on  the  lower  left 
corner  of  the  component  side  of  the  card,  which  indicates  which  array  the  card 
is  to  be  used  for.  On  the  back  of  each  card  cage  are  three  columns  of  banana 
plug  connections.  The  left  column  is  the  tape  outputs,  the  center  column  is 
the  inputs,  and  the  right  column  is  the  di scriminator  outputs. 

The  SCB  card  cage  outputs  are  connected  to  the  A2D  converter  (black  banana 
pair)  and  an  EA  chart  recorder  (purple,  blue  or  green  banana  plugs).  The  A2D 
converter  plug  is  physically  closest  to  the  back  panel  of  the  card  cage. 

The  NBA  card  cage  outputs  are  connected  to  the  A2D  converter  (black  banana 
pair),  the  helicorder  (black  banana  pair)  or  its  equivalent  resistance  (yellow 
banana  pair),  and  an  EA  equivalent  resistance  (green  banana  plugs).  The  A2D 
converter  plug  is  physically  closest  to  the  back  panel  of  the  card  cage,  and 
the  EA  equivalent  resistance  is  physically  farthest  from  the  panel. 

Since  the  N-6  array  channels  are  not  connected  to  the  EA  chart  recorders,  it 
is  necessary  to  do  some  rearranging  of  connections  at  the  back  panel  of  the 
card  cages  during  the  course  of  the  calibration  procedure.  These  connections 
are  described  in  the  procedure  steps.  Also,  in  order  to  increase  the 
sensitivity  of  the  N-6  array,  an  N-6  CAL  resistor  (red  banana  pair)  is 
inserted  physically  between  the  A2D  converter  plug  and  the  EA  chart  recorder 
plugs. 

The  party  at  Nindless  Bight  actually  has  very  little  to  do  during  the 
calibration  process.  However,  the  microphone  is  very  sensitive  to  vibration, 
so  it  is  imperative  that  all  members  of  the  party  remain  stationary  during  the 
calibration  and  quiet  test  periods.  Set  comfortable  in  advance,  the  whole 
process  can  take  an  hour  or  so. 


5.2  Procedure 


The  calibration  procedure  follows.  Instructions  for  both  parties  are 
given.  Instructions  for  the  operator  in  the  Infrasonics  Lab  are  preceded  by 
LAB,  and  instructions  for  the  party  at  the  microphone  site  are  preceded  by 
MBA. 

1.  LAB  &  MBA:  Establish  communications  between  the  microphone  site  and  the 
Infrasonics  Lab,  and  insure  that  both  parties  know  which  microphone  is 
to  be  calibrated. 

2.  MBA:  Connect  the  control  box  to  the  calibrator,  manually  close  the  air 
hose  valve,  and  move  the  valve  to  the  CLOSED/CALIBRATE  position.  Now 
sit  quietly  near  the  radio.  You  have  a  long  wait  ahead  of  you.  No 
walking  around  unless  instructed  to  do  so  by  the  operator  at  the  lab. 


3.  LAB:  When  the  valve  is  closed,  there  should  tie  one  or  sore  large  pulses 
on  the  chart  record.  Wait  about  3  ainutes  for  these  filter  transients 
to  die  out,  then  insure  that  the  output  trace  is  reasonably  straight. 
If  the  trace  does  not  becoae  sraight,  have  the  WBA  party  insure  that  the 
valve  is  fully  closed. 

4.  LAB:  If  the  channel  to  be  calibrated  is  part  of  the  N-6  array, 
disconnect  the  RT6  chart  recorder  (purple  banana  plugs)  froe  the  RTG  N-7 
channel,  and  disconnect  the  EA  equivalent  resistance  (green  banana 
plugs)  froa  the  channel  to  be  calibrated.  Also  disconnect  the 
helicorder  (black  banana  pair)  or  (if  RT6  N-6)  the  helicorder  equivalent 
resistance  (yellow  banana  pair)  froa  the  channel  to  be  calibrated. 
Connect  the  N-6  CAL  resistor  (red  banana  pair)  and  the  chart  recorder  to 
the  channel  to  be  calibrated.  Connect  the  EA  equivalent  resistance  to 
RTG  N-7.  [The  black  banana  pairs  closest  to  the  panel  on  each  channel 
are  the  A2D  converter  inputs.  These  should  never  be  disconnected.] 
When  all  is  done,  the  channel  to  be  calibrated  should  have  only  the  A2D 
converter,  N-6  CAL  resistor,  and  the  chart  recorder  connected  to  it. 

5.  LAB:  Nave  the  toggle  switch  (SM-1)  on  the  edge  of  the  discriminator  card 
for  the  channel  to  be  calibrated  to  the  ZERO  CHECK  (up  on  older  cards, 
down  on  newer  cards — newer  cards  are  earked)  position. 

6.  LAB:  After  the  transients  have  settled,  wait  5  (N-6)  or  12  (N-7) 

ainutes,  then  check  the  average  value  for  that  channel  (in  the  most 
recent  block  of  data)  on  the  video  terainal.  Using  triapot  Z-l  (just 
above  SW-1),  adjust  the  LP  rero.  Turning  Z-l  clockwise  gives  a  lore 
positive  value.  Repeat  as  necessary  to  give  a  0.0  +10.0  value,  allowing 
5  or  12  ainutes  after  each  adjustoent. 

7.  LAB:  If  the  channel  to  be  calibrated  is  oart  of  the  N-7  array,  adjust 
the  zero  central  an  the  chart  recorder  (below  the  takeup  reel)  to  center 
the  pens. 

8.  LAB:  Return  SW-1  to  the  RUN  position.  When  all  is  quiet,  have  the  WBA 
party  turn  on  the  calibrator  puap. 

9.  WBA:  When  instructed,  turn  the  calibrator  puap  on,  and  go  back  to 

sitting  quietly.  Now  coaes  the  really  long  wait. 

II.  LAB:  Watt  three  ainutes  for  the  transients  to  settle,  then  aeasu re  the 
peak  to  peak  swing  of  the  calibration  signal.  The  peak  to  peak  swing 
should  be  1.0  ci  per  aicrobar  (e.g.  a  10  aicrobar  calibrator  should 
produce  a  peak  to  peak  swing  of  10  ca).  Adjust  triapot  A-l  (the  top 

triapot)  on  the  edge  of  the  di scri ainator  card  for  the  channel  being 
calibrated  to  produce  the  desired  peak  to  seak  swing.  Turning  this  pot 
clockwise  increases  the  swing.  After  each  adjustaent,  it  will  be 

necessary  to  wait  three  ainutes  (for  N-7)  or  30  seconds  (for  N-6)  for 

transients  to  settle. 

11.  -A8:  After  the  transients  have  settled,  wait  5  (N-6)  or  12  (N-7) 

ainutes,  then  check  the  average  value  for  that  channel  (in  the  aost 
recent  block  of  data)  on  the  video  terainal.  Using  triapots  1-2  and  Z-3 


39 


(just  below  SW-1,  Z-2  on  left),  adjust  the  HP  zero.  Z-2  is  the  coarse 
adjustaent  and  Z-3  is  the  fine  adjustaent.  Turning  Z-2  or  Z-3 
counter-clockwise  gives  a  more  positive  value.  Repeat  as  necessary  to 
give  a  0.0  +10.0  value,  allowing  S  or  12  ainutes  after  each  adjustaent. 

12.  LAB:  If  the  channel  being  calibrated  is  part  of  the  N-6  array, 

disconnect  the  chart  recorder  (purple  banana  plugs)  and  N-6  CAL  resistor 
(red  banana  pair)  froa  the  channel.  Disconnect  the  EA  equivalent 
resistance  (green  banana  plugs)  froa  the  RTS  channel.  Connect  the  chart 
recorder  the  RTS  channel.  Connect  the  Helicorder  (black  banana  pair)  or 
(if  RTS  N-6)  the  Helicorder  equivalent  resistance  (yellow  banana  pair) 
and  the  EA  equivalent  resistance  to  the  channel  being  calibrated. 

13.  LAB:  If  the  channel  being  calibrated  is  AUR,  VEE  or  NOV,  set  the 

helicorder  '  attenuation  for  that  channel  to  24  dB  and  adjust  the 

helicorder  gain  trii  to  give  a  peak  to  peak  swing  on  the  helicorder  of 
33.6mm  (for  AUR  or  NOV)  or  34.4mm  (for  VEE).  It  will  not  be  necessary  to 
wait  for  filter  transients  for  this  adjustaent.  When  finished,  return 
the  attenuation  to  36  dB. 

14.  LAB:  Record  the  NEXT  block  nunber  to  cose  up  on  the  video  terminal. 

Allow  four  (N-6)  or  nine  (N-7)  additional  blocks  to  be  collected. 
Record  the  last  block  number  in  this  group  as  well.  While  you  are 

waiting  for  these  blocks  to  collect,  determine  the  period  of  the 

calibration  signal  by  tiling  several  (at  least  20)  cycles.  Also  record 

the  channel  name  and  the  discriminator  card  serial  number. 

15.  LAB:  Inform  the  WBA  party  that  the  calibration  is  done,  and  that  you  are 
ready  to  begin  the  quiet  test. 

16.  WBA:  When  instructed  that  the  calibration  is  complete,  measure  the 
frequency  swing  of  the  calibration  signal  with  the  Fluke  B060 
multimeter,  then  turn  off  the  calibrator  pump. 

17.  LAB:  Once  again,  allow  three  minutes  for  the  transients  to  settle. 
Record  the  NEXT  block  number  to  come  up  on  the  video  terminal.  Allow 
four  (N-6)  or  nine  (N-7)  additional  blocks  to  be  collected.  Record  the 
last  block  number  in  this  group  as  well. 

18.  *LAE:*A  spare  discriminator  card  should  be  calibrated  for  each  channel 

(provided  that  there  are  enough  cards  to  go  around).  Remove  the 
discriminator  card  just  calibrated,  and  replace  it  with  one  of  the 
spares.  Insure  that  both  cards  are  appropri ately  marked  with  the 
channel  name,  etc.  Repeat  the  entire  process  from  step  4. 

19.  LAB:  After  completing  the  calibration  of  the  second  card,  instruct  the 
WBA  party  to  open  the  valve. 

20.  WBA:  Move  the  valve  to  the  OPEN/OPERATE  position.  Inform  the  operator 
at  the  lab  when  the  valve  is  open.  Once  again,  no  walking  around  until 
the  operator  has  confirmed  a  normal  output  from  the  microphone.  Wait 
for  a  sort  quiet  test  with  the  calibrator  valve  open  and  the  manual 
valve  closed.  This  is  to  check  for  air  leaks. 


21.  LAB:  Insurt  that  the  channel  is  producing  a  straight  line.  (For  RTS  N-6 
it  will  be  necessary  to  connect  the  RTS  chart  recorder  to  the  RTG  N-6 
output  briefly  to  view  the  output.)  Infora  the  field  party  when  you  are 
convinced  that  the  signal  is  sufficiently  quiet. 

22.  MBA:  Open  the  manual  valve  and  wait  for  confirmation  of  a  noraal 
output. 

23.  LAB:  Mait  once  again  for  the  transients  to  die  out,  then  insure  that  the 
output  is  normal.  When  all  is  well,  infore  the  MBA  party  that  they  aay 
pack  up  and  aove  on  to  the  next  aicrophone. 


Chapter  6 
TR0UBLESH00TIN8 
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Host  equipment  failures  have  occurred  Mithin  the  analogue  portion  of  the 
system.  Such  failures  are  easily  seen  by  checking  the  quality  of  the 
graphical  output  (EA  recorder  or  helicorder)  of  each  channel.  It  is  then 
possible  to  detereine  whether  the  failure  is  within  the  building  or  outside 
the  building  by  checking  for  the  presence  and  quality  of  the  audio  tone. 
Failures  within  the  digital  portion  of  the  system  say  not  be  as  obvious  until 
an  atteept  is  eade  to  read  the  data  tape.  Fortunately,  there  is  really  not 
very  such  that  can  go  wrong  short  of  the  failure  of  a  board  or  peripheral 
unit,  either  of  which  can  sieply  be  swapped  for  a  spare  unit.  Most  of  the 
digital  systee  failures  will  be  self  diagnosing  (i.e.  tape  transport  won't 
work,  or  clock  board  does  not  keep  accurate  tiae)  as  to  where  the  fault  lies. 
It  is  the  failures  outside  the  building  that  really  require  careful  attention 
in  troubleshooting. 


6^  l_Fai.iur  es_in_  t  h  e_F  i  eid 


An  equipaent  repair  trip  to  Mindless  Bight  can  be  a  tajor  undertaking, 
especially  during  the  dark  winter  months.  For  this  reason,  it  is  best  to  know 
where  the  fault  lies  before  departing  to  eake  repairs.  The  aost  likely 
failures  at  Mindless  Bight  are  power  supply  failure,  aicrophone  oscillator 
failure,  broken  space  filter,  broken  land  line,  or  transmitter  failure. 


6.1.1  Power  Supply 

A  power  supply  failure  would  be  indicated  by  the  loss  of  all  data  channels 
froa  Mindless  Bight.  It  is  possible  either  that  all  channels  would  be  lost  at 
once  (possibly  a  broken  conductor),  or  that  channels  would  be  lost  over  a 
period  of  tiae  due  to  dropping  voltage  (aost  likely  a  failure  of  the  24v  power 
conditioner).  If  the  power  supply  failure  is  interai ttent ,  it  could  be  due  to 
a  teeperature  related  intcraittent  connection  between  the  RTS  unit  and  its 
output  cable. 

A  supply  of  1 2v  lead-acid  batteries  is  kept  on  hand  for  use  as  a  temporary 
power  source  in  the  event  of  power  supply  failure.  There  ar°  spare  components 
for  the  24v  power  conditioner  in  the  Infrasonics  lab. 
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A  power  supply  failure  at  Mindless  Bight  aust  be  approached  with  extreae 
caution.  If  the  RTS  unit  has  been  disconnected  froa  its  load  for  an  extended 
period  of  tiae,  there  is  the  possibility  that  the  radioactive  shielding  has 
been  daaaged.  Under  no  ci rcuastances  should  the  hut  be  approached  or  entered 
without  first  doing  a  radiation  survey  with  the  RADIAC.  All  personnel  should 
be  issued  dosiaeters.  If  the  RTG  is  to  be  left  disconnected  froa  its  load,  it 
should  be  connected  to  its  shorting  plug  (which  is  kept  in  the  hut). 


6.1.2  Osci 1 1 ator 

The  failure  of  an  oscillator  will  cause  the  loss  of  the  audio  tone  or  cause 
the  tone  to  be  weak  or  distorted.  Often  this  will  be  due  to  a  cold  solder 
joint  or  an  insufficient  connection  between  the  oscillator  center  conductor 
and  the  aicrophone  capsule.  The  center  frequency  of  the  oscillator  should 
reaain  nearly  constant  over  a  long  period  in  tiae.  Should  that  center 
frequency  change  suddenly,  the  oscillator  is  aost  likely  aalfunctioning.  In 
soae  cases  the  audio  tone  will  not  be  audible  at  the  lab,  but  will  be  audible 
froa  the  receiver  output  at  the  receiver  site.  This  is  the  aost  conclusive 
distinction  between  an  oscillator  failure  and  other  types  of  failures. 


6.1.3  Acoustic  Filter 

An  air  leak  into  the  acoustic  filter  will  cause  that  channel  to  appear  auch 
"naisier‘  than  the  other  channels  aost  of  the  tiae.  This  type  of  fault 
usually  occurs  in  January  just  after  the  filter  pipes  have  been  relocated  onto 
the  snow  surface,  and  becoae  subject  to  expansion  froa  solar  heating.  The 
solution  is  lots  of  RTV  goop  on  the  end  caps  and  Tee  connection. 


6.1.4  Land  Lines 

A  land  line  failure  will  show  itself  as  the  loss  of  a  single  channel.  There 
would  be  no  tone  present  at  the  lab  or  at  the  receiver  site.  At  the  RTG  hut, 
the  aaaeter  for  that  channel  would  read  zero  rather  than  its  noraal  19aa.  If 
the  tone  is  present,  and  quite  strong,  at  the  receiver  site,  but  is  not 
present  at  the  lab,  then  the  land  line  froa  the  receiver  site  to  the  lab  is 
very  likely  broken. 

There  is  approxiaately  one  aile  of  sp’are  fable  stored  by  the  outhouse  at  the 
lab,  and  an  additional  quarter-aile  stored  in  the  RTG  hut.  None  of  this  cable 
has  connectors  on  the  ends.  If  it  is  necessary  to  replace  the  cable  between 
the  receiver  site  and  the  lab,  it  will  only  require  a  lot  of  hard  outside 
labor.  If  there  is  a  broken  cable  at  Mindless  Bight  then  the  repairs  will  be 
extreaely  difficult.  Only  the  cable  runs  to  AUR  and  VEE  are  less  than  1  1/4 
ailes.  In  any  other  case  it  will  necessary  to  deteraine  which  portion  of  the 
cable  run  contains  the  break,  and  replace  that  portion.  Cable  runs  were  laid 
as  follows.-  1981:  AUR,  VEE,  ROS;  1983:  NOV;  1984:  TER,  EFE.  Cable  runs  to  ERE 
and  TER  laid  in  1976  are  still  connected  to  the  aicrophones  and  need  only  to 
be  connected  to  the  regulator  panel  in  the  hut  if  the  new  land  line  develops  a 
fault. 
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6.1.5  Radios 

A  transmitter  failure  would  be  evident  by  white  noise  in  place  of  the  normal 
audio  tone.  This  would  indicate  the  absence  of  the  FM  carrier.  It  may  be 
determined  that  the  carrier  is  present  by  listening  for  a  difference  in  the 
receiver  output  with  and  without  the  receiver  antenna  connected.  A  less 
likely  failure  would  be  the  presence  of  a  good  tone  at  the  regulator  panel  in 
the  hut,  but  the  absence  of  any  signal  at  the  receiver  site.  It  eay  be 
difficult  to  determine  whether  a  fault  in  the  radio  link  is  in  the  receiver  or 
transmitter,  but  since  both  of  them  must  be  replaced  (as  well  as  the  antennas) 
it  doesn't  really  matter.  There  is  also  the  possibility  that  the  fault  lies 
in  the  antenna  cable.  This  is  likely  the  case  if  replacing  the  radios  and 
antennas  does  not  solve  the  fault. 


6.2  Failures  in  the  Lab 


6.2.1  Demodulators 

If  the  audio  tone  in  the  lab  is  good,  but  the  graphic  output  is  not,  then 
the  problem  mast  lively  lies  in  the  di scri mi nator  card.  Frequent  spike 
impulses  (particularly  associated  with  physical  impact  to  the  card  cage)  would 
indicate  a  poor  connection  on  some  component  (possibly  one  of  the  large 
capacitors)  of  tht  discriminator.  Failure  of  the  discriminator  to  track  a 
good  audio  tone  indicates  a  problem  with  the  phase-locked  loop.  A  small 
adjustment  to  potentiometer  F-l  on  the  bottom  of  the  card  edge  say  bring  the 
loop  into  tracking.  If  however  the  discriminator  continues  to  lose  the 
signal,  then  the  phase-locked  loop  chip  should  be  replaced.  For  additional 
information,  see  the  chapter  on  the  demodulators. 


6.2.2  Digital  System 

A  failure  within  the  digital  system  will  most  likely  by  reported  by  some 
kind  of  error  message.  Common  problems  such  as  tape  transport  off-line  will 
be  indicated  by  english-like  messages  at  the  terminal.  Flashes  of  light  can 
cause  the  tape  transport  to  simulate  a  broken  tape  condition,  thence  putting 
it  off-line.  Hardware  failures  during  data  acquisition  may  be  indicated  by  a 
FORTRAN  OTS  message,  such  as  "?Err  12"  (less  serious)  or  by  system  crashes, 
indicated  by  a  six  digit  octal  value  followed  by  an  ‘8*  prompt  (more 
serious).  In  the  former  case,  consult  the  System  Message  Manual  in  RT-11 
Volume  2.  In  the  latter  case,  the  octal  value  is  an  indication  as  to  where  in 
software  the  failure  occured.  In  either  case,  try  reloading  the  program  from 
tape.  If  the  failure  does  not  repeat  itself,  fine.  If  it  does,  then  it  is 
probably  a  hardware  failure. 

Using  the  link  map  for  RTG8CH,  and  the  octal  value  given  by  a  system  crash 
(processor  halt),  determine  which  routine  was  being  executed  when  the  failure 
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occured.  The  octal  value  is  the  address  of  the  next  instruction  to  be 
executed.  The  link  eap  gives  starting  values  for  each  program  section  or 
global  entry  point  in  the  program.  The  octal  address  sinus  2,  sinus  the 
prograe  section  starting  address  gives  the  offset  into  the  routine  to  the 
instruction  where  the  crash  occurred.  If  the  routine  is  MACRO,  then  the 
offset  for  each  instruction  is  the  first  column  of  six  digit  values  in  the 
routine  listing.  If  the  routine  is  FORTRAN,  then  a  listing  of  the  generated 
MACRO  code  for  that  FORTRAN  routine  can  be  sade  with  the  oonitor  command 
. FORTRAN/LIST/SHOW: 4  filnaa.  If  the  octal  address  is  greater  than  160000,  then 
the  fault  occurred  while  trying  to  interface  a  peripheral.  Peripheral 
addresses  used  by  RTB8CH  include: 


177560-177566 

177000-177006 

172520-172532 

160770-160776 


Serial  Line  to  Console  Teroinal 
A2D  Converter 
Magtape  Controller 
TCU-50  Clock 


This  information  should  get  you  started  on  finding  and  replacing  any  faulty 
component  of  the  system.  Far  additional  information,  see  the  appropriate 
hardware  manuals  or  the  appropriate  sections  of  this  manual.  Good  luck. 


Chapter  7 

ANALOGUE  EQUIPMENT 


7.1  Sensors 


The  infrasonic  sensor  consists  of  five  parts:  the  acoustic  filter,  the 
calibrator,  the  aicrophone  capsule,  the  oscillator  and  the  aicrophone  can. 
The  filter,  calibrator  and  oscillator  are  easily  detachable  froa  the  can,  but 
the  capsule  fitting  is  sealed  with  RTV  silicone  paste  and  should  not  be 
reaoved  unless  absolutely  necessary. 

The  acoustic  filter  is  a  300  foot  long,  2  inch  diaaeter  black  PVC  pipe  with 
a  0.074  inch  hole  drilled  in  it  every  five  feet  along  the  length  of  the  pipe. 

A  TEE  connection  at  the  center  of  the  pipe,  and  a  short  length  of  hose, 
connect  the  filter  to  the  aicrophone  can.  The  end  caps  and  the  center 
connection  of  the  pipe  oust  be  disconnected  each  year  when  the  sensor  is 
disassembled  and  moved  to  the  new  surface  of  the  snow.  Upon  reasseably,  all 
connections  must  be  sealed  with  RTV  paste. 

The  calibrator  consists  of  a  valve  and  a  bellows,  each  driven  by  its  own 
electric  motor.  The  bidirectional  valve  motor  allows  the  valve  to  be  moved  to 
an  open  or  closed  position  as  necessary.  When  open,  the  valve  allows  air  froa 
the  acoustic  filter  to  pass  to  the  upper  side  of  the  diaphragm  in  the 
microphone  capsule.  When  closed,  the  acoustic  filter  is  shut  off  froa  the 
system,  and  the  bellows  is  opened  to  both  the  upper  side  of  the  diaphragm  and 
to  the  plenum  (the  air  surrounding  the  backing  volume).  The  size  of  the 
plenum  directly  affects  the  amplitude  of  the  calibration  waveform,  so  the 
calibrators  cannot  be  moved  from  one  can  to  another  without  some  loss  in  the 
calibration  accuracy.  A  mechanical  stop  prevents  the  bellows  motor  froa  beirfig 
driven  the  wrong  direction.  The  two  motors  are  controlled  by  a  calibrator 
control  box,  which  is  described  in  the  System  Calibration  chapter. 

The  aicrophone  capsule  is  simply  a  capacitive  diaphragm.  The  lower  side  of 
the  diaphragm  is  open  through  the  capsule  fitting  to  a  backing  volume  in  the 
lower  two-thirds  of  the  can.  The  upper  side  of  the  diaphragm  is  open  to  a 
hose  fitting  on  the  side  of  the  capsule.  A  short  length  of  plastic  tubing 
leads  froa  this  fitting  to  the  calibrator.  A  coil  of  small  metal  tubing 
serves  as  a  slow  leak  across  the  diaphragm  to  compensate  for  changes  in 
barometric  pressure.  The  microphone  capsule  is  quite  delicate,  and  should  be 
protected  from  thermal  and  mechanical  shocks. 


The  oscillator  is  a  6  inch  by  6  inch  printed  circuit  board  in  an  aluminum 
housing.  It  is  physically  and  electrically  connected  to  the  capsule  by  three 
banana  plugs  (ground)  and  a  center  contact.  A  2  conductor  connector  mounted 
an  the  oscillator  housing  is  used  for  connection  to  the  land  line  leading  to 
the  electronics  in  the  RTS  hut.  The  nominal  oscillator  frequency  is  1500  H: 
(with  the  capsule  at  its  nominal  capacitance  of  100  pf).  Figures  1,  2  and  3 
show  the  oscillator  schematic,  board  layout,  and  parts  list  respecti vel y . 


The  regulator  panel  provides  power  di stri buti on ,  and  signal  separation  for 
the  electronics  at  Windless  Bight.  The  24  volt  DC  output  from  the  power 
conditioner  is  dropped  to  the  appropriate  voltage  to  provide  12  volts  across 
the  oscillator  (after  line  losses).  A  mi  1 1 i -ammeter  is  provided  for  each 
channel,  and  a  current  of  19  ma  insures  12  volts  across  the  oscillator.  The 
audio  tone  is  separated  from  the  DC  voltage  and  directed  to  the  transmitter 
input.  This  tone  may  be  checked  using  the  black  and  orange  test  points.  The 
maximum  allowable  signal  is  1.0  volts  RMS  AC.  This  is  adjustable  with  the  lk 
audio  gain  pot.  The  12  volt  DC  output  from  the  power  conditioner  is  used  to 
supply  power  to  the  transai tters.  Figures  4,  5  and  b  show  an  overall 
schematic,  a  schematic  for  the  voltage  regulator  subassembly  and  a  board 
layout,  respectively. 


7.3  Power  Conditioner 


The  power  contitioner  is  used  to  convert  the  2.4  volt  RTS  output  voltage  to 
useful  levels.  The  power  conditioner  outputs  are  designated  as  +12,  -12  and 
Common;  however  they  are  used  in  our  application  as  +24,  +12  and  Ground.  The 
red  output  wire  is  +24,  the  white  wire  is  +12  and  the  black  wire  is  Sround.  As 
it  has  not  been  possible  to  acquire  a  spare  power  conditioner,  a  complete  set 
of  spare  components  is  on  hand  in  the  Infrasomcs  Lab,  should  it  become 
necessary  to  reconstruct  the  unit.  Figures  7  and  2  show  a  parts  list  and  a 
schematic,  respectively. 


Zj.4_Regei.vf  r  _Pgwgr  _Suggl  y 


The  receivers  are  powered  by  a  12  volt  card  supply  located  in  the 
infrasomcs  lab,  and  connected  to  the  receivers  by  a  run  of  spiral  four  cable 
from  the  lab  to  the  receiver  site.  Figure  9  (2  pages)  is  the  manual  for  the 
card  supply. 
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Figure  2.  Oscillator  Board  Layout 
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Figure! 3.  Osci 11 ator  Parts  ’Li st 


1.  With  a  nominal  voltage  of  24v  for  V.,  the  output  voltage  range 
is  6.0v  to  21. 7v. 

2.  With  Vin=24v  and  Vout=12v  the  maximum  current  IQut  is  40ma. 

3.  With  Vout*12v  across  a  666  load,  Iin=20ma  and  Iout=>18ma. 


Figure  5.  Voltage  Regulator  Subassembly  Schematic 


Regulator  Panel  Parts  Layout 
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P.C.  Board  Parts  Layout 


Figure  6.  Master  Regulator  Panel  Parts  Layout 
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The  audio  tones  from  the  oscillators  in  the  sensors  are  a  frequency 
aodulated  signal  containing  the. pressure  variation  information  froa  the  sensor 
site.  The  deaodulator  systea  performs  the  tasks  of  extracting  the  aodulated 
signal,  filtering  the  signal  Mith  the  desired  bandpass,  and  amplifying  the 
signal  to  a  known  standard.  This  is  the  heart  of  the  analogue  systea. 

There  are  two  card  cages,  which  are  sioiliar  in  design.  Each  of  these 
contains  the  demodulator  electronics  for  one  array.  The  upper  card  cage 
(serial  NBA!  is  for  the  saall  (N-6)  array,  and  the  lower  card  cage  (serial 
SCB)  is  for  the  large  (N-7)  array.  Each  array  holds  four  di scri ai nator  cards 
(one  for  each  channel)  and  a  powe*  supply  card.  To  the  right  of  the  cards  is 
a  control  panel  which  peraits  the  inputs  to  be  disconnected  froa  the 
di scr i ainator  cards  (for  cero  adjustment).  In  addition,  the  N-7  array  card 
cage  (SCB)  holds  a  tape  bias  card  which  supplies  the  20(3  Hz  AC  bias  signal  for 
the  slow-speed  analogue  tape  head.  An  overall  schematic  for  a  card  cage  is 
shown  in  figure,  1  along  with  a  board  layout  for  the  discriminator  cards.  A 
scheaatic  for  the  card  cage  power  distribution  is  shown  in  figure  2. 

The  back  of  each  card  cage  has  three  columns  of  banana  plug  pairs.  These 
are  outputs  to  tape  (left),  inputs  (center)  and  outputs  to  the  charts  and  A20 
converter  (right).  There  are  four  banana  plug  pairs  in  each  column,  one  for 
each  channel.  The  tap  set  of  plugs  in  each  column  in  wired  to  the  card  slot 
farthest  froa  the  control  panel,  and  so  on.  The  N-7  array  card  cage  also  has 
a  banana  plug  pair  for  the  tape  bias  output,  and  another  for  the  tape  tiae 
mark  input. 

All  of  the  deaodulator  electronics  are  contained  on  the  discriminator  card. 
There  is  one  card  for  each  channel.  Schematics  are  shown  in  figures  3  and  4. 
The  signal  input  for  each  channel  is  an  audio  tone  in  the  range  1100  to  1700 
Hz.  An  NE365  phase-locked  loop  is  used  to  demodulate  this  signal.  The 
demodulated  signal  is  then  filtered  by  a  two  stage  active  filter  to  remove 
undesired  components.  This  filter  is  designed  to  be  flat  within  1.5  dB 
throughout  the  passband  of  10  seconds  to  67  seconds  period  for  the  N-7  array 
or  1  second  to  10  seconds  period  for  the  N-6  array,  when  calibrated  for  full 
scale  with  a  15  second  (N-7)  or  5  second  (N-6)  period  calibration  signal.  The 
filter  output  is  amplified  to  drive  the  chart  recorders  and  A2D  converter. 
This  output  13  also  additionally  aaplified  to  create  a  suitable  output  to  the 
analogue  tape. 

When  in  noraal  operation,  the  toggle  switch  ( S W- 1 )  should  be  in  the  RUN 
position.  On  older  cards  this  is  the  down  position,  but  on  the  newer  cards 
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Figure  1.  Card  Cage  Schematic  and  Demodulator  Board  Layout 
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this  is  the  up  position.  All  of  the  newer  cards  are  appr opr i atel y  narked. 
The  right  panel  knob(s)  should  also  be  in  the  RUN  position.  The  +/-  CHECK 
position  lets  the  unit  run,  but  connects  the  chart  recorders  and  A2D  converter 
to  a  variable  voltage  source.  This  is  adjustable  by  the  right  panel  control 
which  allows  the  pens  to  be  moved  to  full  scale  for  alignaent  checking.  Note: 
A  +/-  CHECK  should  never  be  done  when  the  A2D  converter  is  sampling.  The 
INPUT  GROUNDED  position  of  the  right  panel  knob  disconnects  the  filters  from 
the  denodulated  signal,  allowing  the  output  to  settle  for  zero  adjustaent. 

Zero  adjustnents  should  be  checked  whenever  a  calibration  is  perforned.  See 
the  System  Calibration  chapter  for  the  zero  adjustaent  and  calibration 
procedure. 

The  discrininator  cards  will  give  a  full  scale  output  ( +  /-  0.5  aa  into  a  5.6 
k 0 h m  load)  with  a  standard  +/-  10  Hz  frequency  modulation  of  the  audio  tone  at 
a  15  second  (N-7)  or  5  second  (N-6)  period.  This  is  the  standard  signal 
provided  by  a  10  dyne  calibrator.  The  calibration  procedure  is  described  in 
the  System  Calibration  chapter. 

Any  failure  comaon  to  all  of  the  channels  in  a  cage  shows  a  problea  with  the 
24  volt  power  supply.  This  is  a  plug  in  unit,  easily  replaced  with  one  of  the 
spares.  A  failure  of  one  channel  only  is  aost  likely  a  problea  with  the 
discrininator  card  for  that  channel.  This  is  easily  serviced  by  replacement 
with  one  of  the  spare  cards. 
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Chapter  9 

SLOU-SPEED  ANALOGUE  TAPE 


The  slow-speed  analogue  tape  system  is  used  as  a  backup  to  record  the  large 
( N— 7 )  array  indorsation.  7  tracks  od  an  IRIS  standard  interleaved  14-track,  1 
inch  tape  are  recorded  at  a  speed  od  1/4  inch  per  ainute.  Six  od  the  seven 
tracks  are  used.  Track  1:  records  the  tieing  earks,  track  5:  the  output  drom 
RTG  N-7  divided  by  10,  track  7:  the  output  droa  Ross,  track  9:  the  output  droa 
Terror,  track  11:  the  output  droa  Erebus  and  track  13:  the  output  droa  RTG  N-7 
The  tape  transport  itseld  is  quite  simple,  and  contains  nothing  aore  than  the 
tape  path,  motors  and  tape  head. 

The  record  aaplidiers  dor  the  tape  are  included  as  the  dinal  stage  od  the 
discriminator  cards  (see  the  Demodulator  chapter).  They  are  essentially  a 
pair  od  impedance  matching  aaplidiers. 

A  record  head  bias  signal  is  also  necessary  to  activate  the  head.  This  is 
supplied  by  the  tape  bias  card  mounted  in  the  SCB  card  cage.  A  schematic  is 
shoMn  in  digure  1,  and  the  card  edge  connections  are  shown  in  digure  2.  Q1  and 
Q2  are  connected  to  dora  a  dree  running  multivibrator  with  a  drequency  od 
about  200  Hr.  The  exact  drequency  is  not  critical,  however  amplitude  and 
wavedora  stability  are  critical  dor  miniaua  recorded  noise  and  aaxiaua  dynamic 
range.  Q3  through  Q6  dora  the  output  driver  dor  the  bias  windings  od  the 
record  head.  These  dour  transistors  act  as  a  reversing  switch  driven  by  the 
oscillator.  R1  and  VR1  establish  13v  across  the  switch  so  that  the  unloaded 
output  is  a  symmetrical  square  wave  od  about  23  volts  peak  to  peak.  the 
resistance  od  the  bias  windings  with  R10  reduces  the  output  square  wave  to 
about  2  volts  peak  to  peak  while  the  inductance  od  the  head  windings  causes  a 
spike  od  about  12  volts  on  the  leading  edges  od  the  square  wave. 

Between  the  electronics  and  the  tape  head  is  a  monitor  panel  consisting  od 
several  ammeters.  A  monitor  scheaatic  is  shown  m  digure  3  and  the  head 
schematic  is  shown  in  digure  4.  For  each  track  there  is  a  ♦/-  100  aicroaaaeter 
with  a  shunt  resistor.  When  the  system  is  properly  connected  the  output  od  a 
record  aaplidier  is  series  connected  through  a  .monitor  meter,  the  signal 
winding  od  the  record  head,  and  back  to  the  output  od  the  companion 
aaplidier.  The  shunt  resistors  dor  the  aeters  have  been  selected  so  that  the 
proper  recording  level  on  the  magnetic  tape  is  obtained  when,  during  a  system 
calibration,  the  meter  deflection  is  3  microaaps  peak  to  peak  dor  each 
aicrobar  peak  to  peak  produced  by  the  calibration  signal. 

There  is  a  friction  clutch  between  the  take-up  motor  and  take-up  spindle, 
which  is  disassembled  b v  removing  the  tape-up  motor.  The  clutch  consists  of 
an  aluminum  cup  fastened  to  the  motor  shaft.  In  this  cup  a  split  cylinder  has 
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Rear  Edge  Connector 
Tape  Bias  Card 

Infrasonics  Discriminator  Panel  s/n#  SCB 


connector  pin  #  use 


4  ground 

7  to  Bias  adj.  meter  (black  BP) 
and  Bias  adj.  pot. 

13  ground 

15  to  Bias  adj.  pot. 

17  to  Bias  adj.  meter  (yellow  BP) 
19  to  tape  deck  bias  head 
21  to  tape  deck  bias  head 
24  +12v  power 


o  r  .  4  /-v--  —  -  -  - - 
C.J  Ticv 


note:  card  has  different  numbering  system 


card  connector  external 
pin#  pin  #  connections 
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Meter  ch5  is  *10  of  ch2 

Meters  are  Martin  Instruments/Honeywell  #  HMR25W1H1DCUA  (tlOOua) 
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an  O-rinq  at  its  circuaf erence.  Four  flat-head  screws  hold  the  split  cylinder 
together  and,  when  tightened,  push  the  0-ring  so  as  to  increase  its  diameter 
and  thus  increase  the  friction.  The  four  screws  should  be  tightened  or 
loosened  together.  The  clutch  works  best  with  a  thin  file  of  silicone 
grease.  The  ideal  adjustment  of  this  clutch  is  to  have  it  tight  enough  to 
hold  the  tape  on  the  reel  whether  full  or  empty.  In  no  case  should  the 
tension  provided  by  the  take-up  clutch  be  sufficient  to  pull  the  tape  past  the 
main  capstan  and  pressure  roller.  Once  properly  adjusted,  the  tension  should 
remain  stable  for  years. 

Time  marks  are  recorded  on  track  1  of  the  tape  according  to  the  following 
scheme.  A  ten  second  mark  is  made  each  five  minutes,  with  a  twenty  second 
mark  on  the  hour.  Each  time  mark  consists  of  a  1/2  He  square  wave.  The  time 
mark  generating  equipment  consists  of  a  Systron  Donner  model  8210  clock  and  a 
time  code  generator /rel ay  box.  These  are  described  in  the  Digital  Equipment 
chapter . 


Chapter  IB 


DIBZTAL  EQUIPMENT 


10.1  Tiss  Hark  S  ^  s  1 9  fi  s 


IB. 1.1  EA  Recorder  Time  Marks 

Tiae  narks  for  the  EA  recorder  charts  are  written  on  both  aargins  of  each 
chart  in  IRIS  D  slow  code.  A  Datua  9100  Tiae  Code  6enerator  produces  a  TTL 
coapatible  IRIS  D  code  signal  which  is  used  to  drive  a  relay  that  switches  the 
120  vac  power  to  the  side  pen  inputs  of  the  EA  recorders.  An  LED  on  the  relay 
box  indicates  when  the  120  vac  signal  is  activitated. 


10.1.2  Analogue  Tape  Tiae  Ma' 'S 

The  tiae  aark  signal  for  the  analogue  tape  is  provided  by  a  Systron  Donner 
8210  clock  and  a  61  built  tiae  aark  generator  box.  This  tiae  aark  generator 
box  uses  a  nuaber  of  the  TTL  coapatible  output  signals  froa  the  5DB21B  clock 
to  produce  three  output  tiae  codes.  The  first  output  code  is  a  4  second  aark 
every  ainute  with  a  20  second  aark  on  the  hour.  The  second  code  is  a  1  second 
aark  ev<.  y  other  second  for  10  seconds  every  five  ainutes,  and  a  1  second  aark 
every  other  second  for  20  seconds  on  the  hour.  The  third  code  is  siaply  a  20 
second  TTL  coapatible  aark  on  each  hour.  The  second  output  code  is  used  for 
the  analogue  tape.  Figure  1  shows  the  scheaatic  for  the  tiae  aark  generator 
box . 


1!j.2.BUlUL.3xi£ii 


10.2.1  Coaputer  Configuration 

There  are  two  indepenoent  coaputers  m  the  Infrasonics  Lab.  The  first  is  a 
dedicated  systea  for  the  collection  and  real-time  analysis  of  infrasonic 
data.  The  second  is  intended  for  general  use,  including  data  analysis, 
aessagc  preparation  and  any  other  needs.  The  second  systea  is  also  intended 
to  be  available  as  a  backup  should  soae  aajor  coaponent  of  the  data 
acquisition  system  fail.  Soae  r econf i gurat l on  of  the  second  coaputer  would  be 
necessary  before  it  would  be  possible  to  use  it  with  RT6BCH  for  data 
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collection.  Details  of  the  configurations  of  all  conponents  in  each  computer 
system  are  described  in  Appendix  B. 


10.2.2  A2D  Trigger 

The  A2D  Trigger  provides  the  4  Hz  signal  that  initiates  the  A2D  converter's 
sampling  of  the  infrasonic  data.  This  eodule  is  SI  built  on  a  W941  wire  wrap 
board  for  the  LSI-11  bus.  Very  simply,  the  output  from  a  crystal  oscillator 
is  run  through  the  appropriate  divider  stages  to  produce  a  4  Hz,  450  ns  pulse, 
TTL  compatible  output.  The  module  uses  only  the  power  supply  from  the  LSI-11 
bus,  and  therefore  should  be  installed  in  the  right  half  (slots  C-D)  of  the 
backplane.  The  4  Hz  signal  is  available  from  a  shielded  cable  which  is 
connected  to  the  A2D  converter  input.  Figure  2  shows  a  schematic,  and  figure 
I  the  board  layout  for  the  A2D  trigger. 


10.2.3  Printers 

The  printer  for  the  data  acquisition  system  is  used  to  print  more  than  five 
million  lines  per  year,  and  this  use  requires  a  fair  amount  of  maintenance. 
In  particular,  print  heads  and  platens  are  frequently  in  need  of  repair  or 
replacement.  A  large  inventory  of  spare  parts  is  maintained  for  the  IDS-440 
printers,  and  three  complete  printers  (plus  one  printer  that  is  unusable)  are 
owned  by  the  project.  The  intention  is  for  two  of  the  IDS-440  printers  to  be 
on  station  at  all  times  while  a  third  may  be  returned  to  the  manufacturer  for 
'•econdi  tioning. 

Broken  print  needles  mav  be  replaced  without  removing  the  entire  print  head 
*roi  the  unit.  Four  screws  hold  the  front  panel  to  the  main  chassis  of  the 
printer.  By  removing  the  top  two  screws,  and  loosening  (but  not  removing)  the 
bottom  two  screws,  the  print  head  may  be  moved  away  from  the  platen,  allowing 
sufficient  room  to  work.  Removing  the  ribbon  inking  rollers  exposes  two 
access  holes  through  the  front  panel.  By  eoving  the  print  head  manually,  the 
♦our  screws  that  hold  the  print  head  to  the  carnage  assembly  may  be 
loosened.  "he  upper  print  head  screws  are  standard,  while  the  lower  screws 
are  Phillips  head.  Once  the  back  of  the  print  head  is  exposed,  the  broken 
needle  may  be  'eplaced  by  removing  its  brass  cover  plate,  taking  out  the  old 
-eedle  'usually  in  three  pieces),  placing  an  unbroken  needle  in  position  and 
repalcinq  the  brass  cover  plate.  Unbroken  needles  may  be  pirated  from  other 
used  print  heads. 

Mhenever  the  print  head  is  repaired  or  replaced,  the  platen  should  be 
inspected  for  wear.  A  damaged  platen  will  reduce  the  life  of  the  print 
needles  as  well  as  the  ribbon.  Host  of  the  tiee  a  platen  may  be  reused  by 
turning  it  over.  Platens  may  be  resurfaced  by  sanding  or  tilling  the  face 
smooth.  Co  not  follow  the  procedure  for  platen  adjustment  from  the  IDS-440 
manual.  Instead,  reassemble  the  printer  and  start  printing  a  test  pattern. 
Kith  a  new  ribbon  in  the  printer,  adjust  the  platen  so  that  it  is  as  far  from 
the  print  need  as  possible,  while  still  printing  all  characters  clearly.  This 
will  help  to  ■•xtend  the  life  of  the  platen. 


T1 


Figure  2 

A/D  TRIGGER  BOARD 

The  W941  A/D  trigger  eodule  is  a  4Hz  trigger  for  the  A/D  converter's 
RTC  (real-ties  clock)  input.  A  scheaatic  is  shown  below,  and  the  board 
lavout  is  shown  on  the  following  page. 
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The  Epson  printer  is  used  for  the  offline  analysis  computer,  as  it  produces 
a  aore  pleasing  output,  and  has  a  nuaber  of  features  not  available  on  the 
IDS-440.  There  is  a  spare  Epson  printer,  but  there  are  not  any  spare  parts. 


10.2.4  Operator's  Console 

Each  coaputer  has  one  operator's  console  (video  terainal).  These  are  Lear 
Siegler  ADM-3A  -duab“  terminals  capable  of  alphanumeric  display  only. 
However,  additional  electronics  have  been  added  to  the  operator's  console  on 
the  offline  analysis  coaputer  to  eaulate  Tektronix  4010  graphics.  These 
electronics  are  contained  an  one  electronics  card  beneath  the  ADM-3A 
electronics  card  in  the  base  of  the  unit.  Manuals  describing  the  graphics 
upgrade  (RS-512  Retro-Graphics)  are  in  tqmptent  Volune  6. 


Chapter  11 

MINDLESS  BI8HT  TO  INFRASONICS  LAB  RADIO  LINK 


A  two-way  voice  radio  link  is  available  for  use  between  field  parties  at 
Windless  Bight  and  the  station  operator  in  the  Infrasonics  Lab.  This  link  is 
essential  for  the  efficient  perforaance  of  the  systea  calibration  and  serves 
as  a  useful  backup  should  the  vehicle  radio  fail.  Noraally,  the  call  signs 
Windless  Bight  and  Little  House  are  used.  This  link  uses  Motorola  Micor 
radios  transaitting  at  135. 6  MHz .  (155.6  MHz  is  a  satellite  downlink 
frequency,  so  splatter  froa  the  satellite  is  occasionally  heard.) 

The  radio  for  the  Windless  Bight  party  is  contained  in  a  box  with  a  hinged 
cover,  that  aay  be  carried  in  the  back  of  the  Spryte.  An  antenna  aounted  on  a 
wooden  aast  aay  be  aounted  on  the  Spryte  with  a  pair  of  C-claaps  that  are  kept 
in  the  radio  box.  A  separate  box  containing  a  12  volt  battery  coapletes  the 
systea.  Antenna  and  power  cables  extend  through  a  port  in  the  box  lid. 

The  HcMurdo  station  end  of  the  link  is  housed  in  a  saall  blue  crate  just  a 
few  feet  froa  the  road  at  the  Infrasonics  Receiver  Site  (1/4  eile  froa  the 
lab).  An  antenna  is  aounted  on  a  aast  beside  the  crate.  A  run  of  spiral  four 
cable  carries  the  audio  signal  froa  the  receiver  site  to  a  reaote  control 
station  in  the  Infrasonics  Lab.  However,  there  is  no  provision  for  turning  the 
radio  on  or  off  froa  the  lab. 

The  control  head  and  terainals  for  the  McMurdo  'adio  are  contained  in  a  box 
attached  to  the  radio  itself.  Installation  siaply  requires  that  the  antenna 
cable,  power  cables  and  reaote  audio  cable  be  connected  at  the  receiver  site. 
The  audio  cable  is  connected  by  banana  plugs,  which  should  be  fastened  with 
rubber  electrical  tape  to  insure  that  they  do  not  btcoae  disconnected.  Power 
is  provided  by  12  volt  batteries  (2  such  batteries  in  parallel  are  recosaended 
when  the  aabient  teaperture  is  less  than  -15  degrees  Celsius).  During  the 
winter  these  batteries  should  be  recharged  daily. 

When  the  systea  is  not  in  use  (during  the  winter',  it  should  be  disasseabled 
and  all  parts  (except  the  crate  and  antenna  at  the  receiver  site)  should  be 
stored  in  the  lab.  host  difficulties  encountered  with  this  systea  have  been 
due  to  weak  batteries  at  the  receiver  site.  The^e  is  a  spare  Micor  radio 
stored  in  the  lab.  Coaplete  docuaen t at l on  for  the  Micor  radios  is  available 
in  fpu ipeent  Volute  3 . 
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SYSTEM  SPECZIFICATigNS  AT  WINDLESS  BISHT 
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Osci 1 1 ator 

noeinai  current 
Acoust  l  c  -filter 

Land  lines 

Sensor  stations 


•0 

RTS  N-7 

x  =  0.0m 

»1 

Erebus 

-2480.0 

*2 

Terror 

5352.0 

#3 

Ross 

3761.0 

•  4 

RTS  N-6 

0.0 

•  5 

Aur or  a 

-34.9 

•  6 

Vee 

924.3 

#7 

Nova 

1027.5 

Model  N4 

Model  N5  modified  by  SI 
Model  N2 
100  pf 

Model  N2  type,  SI  built 
19  mA 

300'  x  2"  dia  PVC  pipe 
0.074"  holes  spaced  at  S’ 
CX 1065/6  Spiral  Four 


Surveyed  January  1983 


y  -  0.0a 

1  ines 

installed 

1976 

5726.0 

lines 

instal led 

1984 

3132.0 

1 1  nes 

installed 

1984 

-1013.0 

lines 

installed 

1931 

0.0 

(duplicates  t0) 

1123.0 

lines 

installed 

1991 

583.4 

1 1  nes 

installed 

1981 

1987.7 

lines 

installed 

1983’ 

PoMer  supply  Radioisotope 

Model 

Serial  Number 
Output 

Power  (01DEC67) 

Power  (26N0V94) 

Suggested  replacement 
Power  conditioner 
5erial  Number 
12  VDC  Output  (27SEP94) 
24  VDC  Output  (27SEP84! 
PCU  Power  consumption 

Regulator  Panel 

Input  voltage 
Output  to  oscillators 

Transoi t  ters 

Frequency  band 
Input  power 
RF  output  power 
Modulation  (type  2 0 F 3 ) 

Audio  bandwidth 
Audio  input 
Input  impedance 
Frequency  assignments 


•  0 

152. 165 

#1 

153.356 

*2 

159.565 

•  3 

157.300 

#5 

155.000 

la 

153.110 

r 

133. 5s2 

Antenna  m o - n c  i  “ g 


•  "  '<  Z  4 


Thermoelectric  Generator 
LCS-25C 
RTG-006 
2.4  VDC 
38  watts 
15.0  watts 
January  1988 
PCU-001-5004 
SCI  0M 

654  ma  at  1 2 .  o  5  8  VDC 
153  ma  at  25.60  VDC 
approx  1.2  watts 


24  VDC 

12  to  22  VDC  tz  .? tar  * 

Me  -  i  t  r  0  r  '.3  sr 
150-160 

50- 1 00  *a  2 
1  03-500  »-*•*•- 

♦  f ,•  • 

:;e-  000  - 

:  .  2  ■  * 

22  ■:*»- 

H“tr”i  * '  ?  :  * 

r  -  t 


5 :  “  p  r  p 


1  W-A176  884  ANTARCTI 
FAIRBANK< 
BFOSfi-TR- 

UNCIASSIFIED 

ATMOSPHERIC  INFRASOUNDOJ)  A 
GEOPHVSICAL  INST  C  R  UILSO 
-87-0162  F49628-81-C-0091 

LASKA 
N  ET  A 

86 

72 

n 

■ 

•  .  . 

L _ ■ _ —d 

MICROCOPY  RESOLUTION  TEST  CHART 

NATIONAL  Of  STANDARDS-  1%3-A 


Receivers 

Frequency  band 
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Audio  output 

Frequency  response 
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Audio  bandwidth 

Audio  deviation  (10  dyne  input) 
N-7  bandpass  (channels  0,1, 2, 3) 
N-6  bandpass  (channels  4, 5, 6, 7) 
Filter/aaplif ier  output 
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Analogue  tape  tiaing  current 
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N-7  Array 
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Tiae  marks 
N-6  Array 

Input  iapedance 

Slow-speed  Analogue  Tape  Recorder 
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Speed 
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A/D  Converter 
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Operator's  console 
Printer 
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>1  Erebus 
t3  Ross 


•7  Nova 


1.1  to  1.7  kHz 
♦/-  10  Hz 

7  to  70  second  period 
1  to  10  second  period 
+/-  0.5  aa  into  5.6  kOhns 
+/-  480  ua  into  75  Ohas 
200  Hz  at  1.5  aa 
4  ma  into  75  Ohas 


EA  A601R  rectilinear  ni 1 1 i aaneter 
5.6  kOhas 

IRIS  "D"  slow  code  on  each  aargin 
Seotech  3-Channel  Helicorder 
1.5  MOhas 

Model  N-2 

IRIS  (1/2  of  14-track  1") 

1/4  inch  per  minute 
1.5  aa 

490  ua  (10  dynes) 

10  sec  ea  5  axn,  20  sec  on  hour 


DEC  PDP-11/03 
Data  Translation  DT1761 
N-7:  1  Hz,  N-6:  4  Hz 
Digi-data  1740  tape  drive 
10"  reel  magnetic  tape 
Lear-Siegler  ADM-3A 
IDS-440  Paper  Tiger 


Apptndix  B 

COMPUTER  SYSTEM  CONFISURATIONS 


i 


EQUIPMENT  CONFIGURATIONS 


DATA  ACQUISITION  SYSTEM 

DEC  PDP  11/03-L  Minicomputer  s/n  AG27606 

BA  1 1 -N  mounting  box  with  bezel  front  panel 

LTC  controlled  by  front  panel  AUX  switch 
RUN  indicator  controlled  by  CPU 
CPU  enabled 
LTC  disabled 

H9273  backplane  s/n  AS4730216 

Line  Tine  Clock  enabled 
First  slot  for  quad-height  CPU 
H786  power  supply  s/n  5469821 
KD11-H  (M7270)  LSI-11/2  processor  s/n  AG2474387 
Master  Clock  enabled 
Event  Line  (LTC)  disabled 
Power-Up  Mode  2  (PC  at  173000  for  bootstrap) 
DT1761-DI-PG  A/D  Converter  s/n  19242 
Device  address:  177000 

Vector  address:  130 
Differential  inputs 
+/-  10  volt  range 
Two's  complement  notation 
D/A  outputs  disabled 
Z  Set  up  delay  3  usee 
Z  Pulse  width  0.5  usee 

MSV11-DD  (M8044-DB)  32k  by  16  MCS  memory  s/n  MQ9500673 
Bank  7  disabled 

Memory  power  from  bus-powered  backplane 
No  parity  operation 
16k  Memory  size 
Starting  address:  000000 
DQ120  153002-RevB  s/n  20075 
Tape  speed  45ips 
DEC  format  (LSB  written  first) 

DLV11-J  (M8043)  Quad  Serial  Line  Unit  s/n  AB0330DZ53 
Base  address:  176500 


Channel  3  base  address:  177560 
Ch3  break  causes  halt 
Base  vector:  300 

All  channels:  Odd  parity 
All  channels:  3  data  bits 
All  channels:  1  stop  bit 
All  channels:  Parity  inhibited 
Ch0,  Chi,  Ch2  9600  baud 
Ch3  1200  baud 
All  channels:  RS-232C 
All  channels:  slew  rate  of  2  usee 
TCU-50  Clock  s/n  006421 


Ml , M2  installed 
M3  rem,  W4  inst 
HALT  up 
AUX  down 

Ml  installed 
M2,  M3  installed 


Ml  installed 
M3  installed 
W5  inst,  W6  rem 

B8:  1 , 3 , 6 , 8  closed 
B 1 1 :  2,3  closed 
Bll:  4,5,6  closed 
P4  to  P3  to  P2 
R5  to  R1 

R2  to  R4 ,  S2  to  SI 
XI  to  X 3 ,  Y1  to  Y3 
D  to  D1 
I  to  12 

Pin  1  to  Pin  3 
M2 ,  M3  installed 
Pin  5  to  Pin  7 
10  to  14,  15  to  16 
SI  all  ON 

SI, S3  ON,  S2,S4  OFF 
55  ON 

A5,A9  X  to  0 
A7  rem,  A6  inst 
others  X  to  1 
Cl ,C2  X  to  1 
X  to  H 

V6,V7  installed 
V5  X  to  0 
E  X  to  0 
D  X  to  1 
S  X  to  0 
P  X  to  1 
0,1,2  to  N 
3  to  M 
M , N  X  to  3 
R18, R23  22k 


Device  address:  160770  factory  config 

Normal  Year  (not  a  leap  year)  C  to  A 

Empty  slot 

M94 1  4-H:  trigger  (in  right  half  of  slot) 

BDV11-AA  (M8012)  Boot  strap / D l agnost l c /Termi na tor  s/n  AB01301KT7 

Standard  memory  conf i gur at i on  (group  A)  M2,M3,M9,wi2  inst 

Ml  .M4.M10.W1 1  rem 


ROM  chips  arc  8316E  with  CS1,CS2,CS3  low 

Execute  CPU  test  on  power-up  or  restart 

Execute  memory  test  on  power-up  or  restart 

No  OECNET  boot 

Console  test  and  dialogue 

DY0:  boot 


No  ROH  Boot 

LTC  function  is  prograa  controlled 
Digi-Data  1749-8-4-1 10-UL  Tape  Transport  s/n  01881 
Tape  Unit  0 

Transport  status  gated  by  ARM  I/O 
WRITE  NODE  regains  true  unless  SMS  unused 
EOT  remains  true  after  passing  darker 
Single  density  NRZ  only  unit 
On-line  control  from  front  panel 
45ips  tape  speed 

9  track,  800  bpi,  NRZ  format 


High  Density  lamp  indicates  EOT 
On  Line  lamp  indicates  ON  LINE 
+5vDC  test  card  supply  disabled 
Operate  transport 

Lear  Siegier  ADN-3A  Video  Terminal  s/n  43225 
Baud  rate:  1200 
Full  Duplex 
RS-232C  communication 
Auto  NL  after  30th  character 
Lower  Case  characteres  enabled 
Odd  parity 
8  data  bits 
1  stop  bit 
Parity  inhibited 
Bit  8  equals  0 
24  line  display 
60Hz  refresh  rate 

Remote  (CTRL-Z)  clear  screen  enabled 
Keyboard  Lock  enabled 
Upper/Lower  Case  display 
Destructive  cursor 
Local  (direct  to  computer)  mode 

Block  Cursor  with  cursor  control 
Normal  operation 

Integral  Data  Systems  IDS-440G  Paper  Tiger  Printer  s/nl2575 
Page  length:  11  inches 
Baud  rate:  1200 
Control  cades  di.-bled 
Serial  EIA  interface 
12  characters  per  inch 
3  lines  per  inch 

Page  skip  over  perforation  disabled 
Auto  LF  on  receipt  of  CR  disabled 
Remote  control  deselect  disabled 
60  H:  power  supply 


W5,W7  installed 
M6,W8,W13  removed 
E15-A1  ON 
E15-A2  ON 
E15-A3  OFF 
E15-A4  ON 
E15-A5, A8  OFF 
El 5-A6 , A7  ON 
E21-B1  OFF 
E21-B2,B3,B4  OFF 
E21-B3  ON 

M8.M10  installed 
W12  installed 
H13  installed 
W18  installed 
M19  installed 
W30  installed 
S3-1 ,2  CLOSED 
53-3,4,5,6  OPEN 
SI— 2,3,6  CLOSED 
Sl-1,4,5,7  OPEN 
M3,  W24  installed 
W23  installed 
H27  installed 
M4  removed 
S2  in  center  pos. 

5 1- 6  ON 

52- 5  OFF 
S2-6  ON 

52- 7  ON 

53- 1  ON 
S3-2  ON 
53-3  OFF 
S3-4  ON 
S3-5  OFF 

53- 6  ON 

54- 1  OFF 
S4-2  OFF 
S4-3  OFF 
54-4  OFF 
S4-fl  OFF 

54- 6  ON 

35-1,2,3,4,5  OFF 

55- 6  ON 
S5-7  ON 
56  OFF 

S3- 1 , 3  ON,  S 3 - 2  OFF 
S3-4 , 5  ON 
S3-6  OFF 

53- 7  ON 

54- 1  OFF,  S4-2  ON 
S4-3  ON 

S4-4  OFF 
S4-5  OFF 
S4-6  OFF 
S4-7  OFF 


DEC  PDP  1 1/03-L  Hint  computer  */n  AS21256 

BA  1 1 -N  aounting  box  with  bezel  front  panel 

LTC  controlltd  by  front  panel  AUX  switch 
RUN  indicator  controlled  by  CPU 
CPU  enabled 
LTC  enabled 

H9273  backplane  s/n  AG2970643 
Line  Tiae  Clock  enabled 
First  slot  for  quad-height  CPU 
H786  power  supply  s/n  7941064 
KD11-H  (M7270)  LSI-11/2  processor  s/n  AB00136981 
Raster  Clock  enabled 
Event  Line  (LTC)  enabled 

Power-Up  Rode  2  (PC  at  172000  for  bootstrap) 

MS VI 1 -DD  (M8044-DB)  32k  by  16  MOS  aeaory  s/n  MO9300673 
Bank  7  disabled 

Meaory  power  froa  bus-powered  backplane 
No  parity  operation 
16k  Meaory  size 
Starting  address:  000000 

DSD4432  A4432-4-RevA  DSD440  Controller  s/n  304-2 
Device  address:  177170 
Boot  PROM  address:  171000 

Vector  address:  264 

Boot  enabled 

RX02  (double  density)  eaulation 
DSD414Q  804140-01-RevE  DSD430  Controller  s/n  1928 
Device  address:  177130,  Vector  address:  270 
Boat  disabled 
Single-sided  drives 
Drive  0  is  0  and  Drive  1  is  1 
Single  level  interrupt  systea 
Operation  enabled 
00120  153002-RevB  s/n  20072 
Tape  speed  45 i p s 
DEC  foraat  (LSB  written  first) 

DLVll-J  (M8043),  Quad  Serial  Line  Unit  s/n  AB01604VL4 
Base  address:  176500 


Channel  3  base  address:  177560 
Ch3  break  causes  halt 
Base  vector:  300 

All  channels:  Odd  parity 
All  channels:  9  data  bits 
All  channels:  1  stop  bit 
All  channels:  Parity  inhibited 
Ch0  600  baud 
Chi  300  baud 
Ch2  600  baud 
Ch3  4800  baud 
All  channels:  RS-232C 
All  channels:  slew  rate  of  2  usee 
D100Q  CP/M  eaulator  s/n  161 

Device  address:  177160 
TCU-50  Clock  s/n  005347 


Ml, M2  installed 
M3  rea,  M4  inst 
HALT  up 
AUX  up 

Ml  installed 
M2,  M3  installed 


Ml  installed 
M3  reaoved 
MS  inst,  M6  rea 

Pin  1  to  Pin  3 
M2,  M3  installed 
Pin  5  to  Pin  7 
10  to  14,  15  to  16 
SI  all  ON 

Pos  1,2  closed 

Pos  3  open 

Pos  4  closed 

IV3, IV6, IV8  shorted 

IV2, 1 V 4 , IV5 , IV7  open 

DBST  open 

J12  open 

DV  closed 
B1,B2  closed 
850  open 
RM  open 
HINT  open 
J12  closed 

SI, S3  ON,  S2 , S 4  OFF 
S3  ON 

A5,A9  X  to  0 
A7  rea,  A6  inst 
others  X  to  1 
Cl , C2  X  to  1 
X  to  H 

V6,V7  installed 
V5  X  to  0 
E  X  to  0 
D  X  to  1 
S  X  to  0 
P  X  to  1 
0  to  V 

1  to  T 

2  to  V 

3  to  L 
M,N  X  to  3 
R10.R23  22k 

factory  config 


Device  address:  160770 
Noraal  Year  (not  a  leap  year) 

BDV11-AA  (M8012)  Bootstrap/Di agnost i c/Terai nator  s/n 
Standard  aeaory  configuration  (group  A) 

ROM  chips  are  B316E  with  CS1,CS2,CS3  low 


factory  config 
C  to  A 
AB01301KT7 

W2,W3,W9,W12  inst 
W1 , W4 , N10 , HI  1  rea 
W5,W7  installed 
W6,W8,W13  reaoved 


Execute  CPU  test  on  power-up  or  restart 

Execute  aeaory  test  on  power-up  or  restart 

No  DECNET  boot 

Console  test  and  dialogue 

DY0:  boot 


No  ROM  Boot 

LTC  function  enabled 

Data  Systeas  Design  DSD440  Disk  Drive  s/n  44-4053 
Drive  A:  SAS00-2  s/n  614475 

Configured  by  DSD  as  follows: 

Juapers  installed:  800,A,B,C,D,DC,DS,DS1 ,L,T2,Y 
Juapers  reaoved:  801 , DS2, DS3 ,DS4,HL,T1 , T3, T4 ,T5 
Drive  B:  SA800-2  s/n  E14356 

Configured  by  DSD  as  follows: 

Juapers  installed:  800, A,B ,C , DC ,DS ,DS2 ,L,T1 ,T2 , 
Juapers  reaoved:  801 ,D,DS1 ,DS3,DS4,HL, X , Z 
Wire  wrap  juaper  froa  D  pin  to  I/O  pin  8 
Micracoaputer  Power  Inc.  aodel  CP-146  power  supply 
Data  Systeas  Design  D5D430  Disk  Drive  s/n  43-545 
Drive  A:  SA801  s/n  GB7784 

Configured  by  DSD  as  follows: 

Juapers  installed:  800,A,B,C,D,DS,DS1 ,T2, Y 
Juapers  reaoved:  801 , DC , DS2 , DS3 , DS4 , HL , T1 , T3, T4 
Drive  B:  SA801  s/n  GB7497 

Configured  by  DSD  as  follows: 

Juapers  installed:  800,A,B,C,DS,DS2,T1 ,T2,T3,T4 
Juapers  reaoved:  801 ,D,DC , DS1 , DS3,DS4 ,HL , X , Z 
Hire  wrap  juaper  froa  D  pin  to  I/O  pin  12 
Xentek  aodel  33  rev  B  XPD60-6118  power  supply  s/n  1060 
Digi-Data  1749-8-4-1 10-UL  Tape  Transport  s/n  01796 
Tape  Unit  0 

Transport  status  gated  by  ARM  I/O 
WRITE  MODE  reaains  true  unless  SWS  unused 
EOT  reaains  true  after  passing  aarker 
Single  density  NRZ  only  unit 
On-line  control  froa  front  panel 
45ips  tape  speed 


E15-A1  ON 
E15-A2  ON 
E15-A3  OFF 
E15-A4  ON 
E15-A5 , A8  OFF 
E15-A6.A7  ON 
E21-B1  OFF 
E2l-B2,B3,B4  OFF 
E21-B5  OFF 


,T6,X,Z 


T3,T4,T5,T6,Y 


9  track, 


bpi,  NRZ  foraat 


,  T5 , T6 , X , Z 


,T5,T6,Y 


W8,N10  installed 
W12  installed 
W13  installed 
W18  installed 
W 1 9  installed 
W30  installed 
S3-1 ,2  CLOSED 
S3-3 , 4,5,6  OPEN 
Sl-2,3,6  CLOSED 
Sl-1,4,5,7  OPEN 


High  Density  laap  indicates  EOT 
On  Line  laap  indicates  ON  LINE 
+5vDC  test  card  supply  disabled 
Operate  transport 
Epson  RX-S0  Printer  s/n  374644 
Printer  configuration 

Pica-sized  characters  on  power-up 
Graphic  syabols  disabled 
Buzzer  enabled 
Page  length:  11  inches 


H3,  W24  installed 
N23  installed 
N27  installed 
W4  reaoved 
S2  in  center  pos. 


SI - 1  OFF 
Sl-2  OFF 
Sl-3  OFF 
Sl-4  OFF 


Paper  sensor  enabled 
USA  character  set 
Zero  font  with  slash 
Reeote  control  disabled 
Auto  LF  after  CR  disabled 
Skip  over  perforation  disabled 
Serial  Interface  (8148)  configuration 
8  data  bits 
Parity  inhibited 
Odd  parity 

Positive  flag  polarity 
Baud  rate:  300 
Serial  interface  enabled 
2k  buffer  enabled 

Flag  reset  when  only  152  characters  left 

Self-test  disabled 

Control  signal  conditioning 

2k-byte  RAM 
X-on/X-off  enabled 
CPU  is  uPD7Bll 

RS-232C  node 

Addmaster  510  Paper  Tape  Reader/Punch  s/n  0021 
Remote  control  disabled 
8  data  bits 
Parity  inhibited 
1  stop  bit 

Reader:  -5  level  tape 
Baud  rate:  600 

Transaiit/Receive  data  in  ASCII 
Punch  data  in  BAUDOT 
Reader  data  in  BAUDOT 
Punch:  5  level  tape 

RS-232C  interface,  non-inverted ,  internal  elk 
Factory  selected  keyboard  interface  polarities 


St-5  OFF 

51—  6,7,8  ON 

52- 1  ON 
S2-2  ON 
S2-3  OFF 
S2-4  OFF 

SI -1  OFF 
S 1 - 2  OFF 
S 1 - 3  OFF 
SI -4  OFF 

51- 5,7  ON,  6,8  OFF 

52- 1  ON 
S2-2  ON 
S2-3 , 4  OFF 
S2-5.6  OFF 
JS  installed 
J1,J2,J3,J4,J6  ree 
J7B  installed 
J8A,J8B  installed 
J9A  installed 

J9B  removed 
JRS,  JF  installed 
JCL,JX  reeoved 

DSWl-1,2  OPEN 
DSHl-3,4  OPEN 
DSN1-5  CLOS,  6  OPEN 
DSW1-7  OPEN,  8  CLOS 
DSW2-1 ,2  ON 
DSN2-3 , 4  OFF,  5  ON 
DSN2-6  ON 
DSW2-7  OFF 
DSW2-B  OFF 
DSW2-9 , 10  ON 
DAP1-5  as  on  p. 15 
DAPS  as  on  p. 18 


Lear  Siegler  ADM-3A  Video  Tersinal  s/n  83499 
Baud  rate:  4800 
Full  Duplex 
RS-232C  conauni cat i on 
Auto  NL  after  80th  character 
Lower  Case  characteres  enabled 
Odd  parity 
8  data  bits 
1  stop  bit 
Parity  inhibited 
Bit  8  equals  0 
24  line  display 
60Hz  refresh  rate 

Remote  (CTRL-Z)  clear  screen  enabled 
Keyboard  Lock  enabled 
Upper/Lower  Case  display 
Destructive  cursor 
Local  (direct  to  computer)  mode 

Block  Cursor  with  cursor  control 
Normal  operation 

RG-512  Retro-Graphi cs  card  s/n  7821 


S2-2  ON 
S2-5  OFF 
S2-6  ON 

52- 7  ON 

53—  1  ON 
S3-2  ON 
S3-3  OFF 
S3-4  ON 
S3-5  OFF 

53- 6  ON 

54- 1  OFF 
S4-2  OFF 
S4-3  OFF 
S4-4  OFF 
S4-5  OFF 

54- 6  ON 

55- 1,2,3,4,5  OFF 
S 5 - 6  ON 

S5-7  ON 
56  OFF 


No  trailer  codes 
Auto  NL  enabled 
1  stop  bit 
Bit  S  equals  0 
Parity  inhibited 
8  data  bits 
Odd  parity 

6P-100  interface  card 

Handshaking  disabled 


S1,S2  OFF 

53  ON 

54  ON 

55  ON 

56  OFF 

57  OFF 
SS  ON 

S1,S2  OPEN 


RT-11  SYSTEM  84 


SWAP 

SYS 

24  25-Aug-78 

DYMNSJ . SYS 

60 

ll-Jan-84 

TT 

SYS 

2  ll-Jan-84 

LP  .SYS 

n 

12- Jan-84 

PC 

SYS 

2  20-Jan-84 

DY  .SYS 

j 

ll-Jan-84 

NL 

SYS 

2  ll-Jan-84 

MT  .SYS 

8 

1 l-Jan-84 

DUP 

SAV 

21  25-Aug-79 

DIR  .SAV 

17 

25-Aug-78 

EDIT 

SAV 

19  25-Aug-78 

LINK  .SAV 

29 

25-Aug-78 

PIP 

SAV 

16  25-Aug-78 

CP  .SAV 

73 

16-Jun-B3 

SYSMAC 

SML 

37  25-Aug-78 

SYSLIB. OBJ 

195 

1 1  -Jan-84 

MACRO 

SAV 

45  25-Aug-78 

FQRTRA. SAV 

175 

25-Aug-78 

RESORC 

SAV 

12  25-Aug-78 

FORMAT. SAV 

6 

25-Aug-78 

CREF 

SAV 

6  25-Aug-78 

SRCCOH. SAV 

11 

25-Aug-78 

DUMP 

,  SAV 

7  25-Aug-78 

ODT  .OBJ 

9 

25-Aug-78 

LIBR 

SAV 

18  25-Aug-78 

PATCH  .SAV 

9 

25-Aug-78 

MBOOT 

.  BOT 

1  25-Aug-78 

MBQOTP.PRI 

2 

02-Sep-80 

MBOOTS 

.  SEC 

2  27-Sep-80 

HELP  .TEC 

3 

25-Aug-78 

TECO 

,  SAV 

•  27  25-Aug-78 

LOCAL  .TEC 

2 

25-Aug-78 

SORT 

.  TEC 

3  25-Aug-78 

CLEAR  .SAV 

4. 

07-Apr-84 

REWIND 

.SAV 

2  07-Apr-84 

LPINIT. SAV 

2 

07-Apr-84 

CPM 

.  INI 

1  27-Mar-84 

BASIC  .SAV 

52 

05-Mar-84 

LP  1 6 

.SAV 

2  28-May-84 

SETDAT. SAV 

n 

12-Sep-84 

SETTCU 

.SAV 

2  12-Sep-84 

STARTS.COM 

i 

12-Sep-84 

PASCAL 

.SAV 

52  26-Jun-78 

<  UNUSED  > 

8 

8  Free  blocks 

STARTS.COM 

ASSIGN  DY0:  DK: 
ASSIGN  MT0:  2 
ASSIGN  TT:  5 
ASSIGN  TT:  7 
ASSIGN  LP:  6 
SET  TT:  SCOPE 
SET  USR  NOSWAP 
SET  LP:  CTRL 
SET  LP:  NOFORM0 
SET  LP:  LC 
R  LPINIT 
R  SETDAT 
DATE 
TIME 


CPM. INI 

A:  DY2: 

B:  DY3: 

C:  DY1: 

LST:  DY1 : CRAYON. LST 
GO 


-  86  - 


RT-11  SYSTEM  FOR  CP/M 
DIRECTORY 


SNAP 

.SYS 

24 

25-Aug-78 

DYHNSJ . SYS 

60 

1  l-Jan-84 

TT 

.SYS 

2 

1  l-Jan-84 

LP  .SYS 

2 

12-Jan-84 

PC 

.SYS 

2 

20-Jan-84 

DY  .SYS 

3 

1  l-Jan-84 

NL 

.SYS 

2 

1  l-Jan-84 

MT  .SYS 

8 

1 1  -  Jan-84 

DUP 

.SAV 

21 

25-Aug-78 

DIR  .SAV 

17 

25-Aug-78 

PIP 

.SAV 

16 

25-Aug-78 

CP  .SAV 

73 

16- Jun-83 

CLEAR 

•  SAV 

2 

07-Apr-84 

LPINIT. SAV 

2 

07-Apr-B4 

LP16 

.SAV 

'y 

28-May-84 

SETDAT. SAV 

2 

12-Sep-84 

SETTCll 

1.  SAV 

12-Sep-84 

STARTS.COM 

1 

04-Qct-84 

CPM 

.INI 

1 

08-Oct-84 

<  UNUSED  > 

732 

19  Files,  242  Blocks 
732  Free  blocks 


STARTS.COM 

ASSIGN  DY0:  DK: 
ASSIGN  MT0:  2 
ASSIGN  TT:  5 
ASSIGN  TT:  7 
ASSIGN  LP:  6 
SET  TT:  SCOPE 
SET  USR  NOSNAP 
SET  LP:  CTRL 
SET  LP:  NOFORM0 
SET  LP:  LC 
R  LPINIT 
R  SETDAT 
DATE 
TIME 
R  CP 

CPM. INI 

A:  DY1 : 

B:  DY2: 

LST :  DY0: CRAYON. LST 
SEN:  LP: 

GO 


-  87  - 


SYSTEM  FOR  INTRO  TO  RT-11 
DIRECTORY 


SWAP 

SYS 

24 

25-Aug-78 

D YMNSJ . SYS 

60 

1 l-Jan-84 

TT 

SYS 

2 

1  l-Jan-84 

LP  .SYS 

1 2-J  an-84 

PC 

SYS 

2 

20-Jan-S4 

DY  .SYS 

3 

1  l-Jan-84 

NL 

SYS 

2 

1  l-Jan-84 

MT  .SYS 

8 

1  l-Jan-84 

DUP 

SAV 

21 

25-Aug-78  • 

DIR  .SAV 

17 

25-Aug-78 

EDIT 

SAV 

19 

25-Aug-78 

LINK  .SAV 

29 

25-Aug-78 

PIP 

SAV 

16 

25-Aug-S4 

MACRO  .SAV 

45 

25-Aug-84 

FORTRA 

SAV 

175 

25-Aug-84 

RESORC. SAV 

12 

25-Aug-84 

SRCCQM 

SAV 

11 

25-Aug-84 

LIBR  .SAV 

18 

25-Aug-S4 

LPINIT 

SAV 

n 

07-Apr-B4 

HELP  .SAV 

21 

25-Aug-84 

HELP 

TXT 

74 

25-Aug-84 

HELP  .TEC 

T 

■J 

25-Aug-84 

STARTS 

COM 

1 

08-Oct-84 

DEMQF 1 . FOR 

2 

25-Aug-84 

DEMOX1 

MAC 

3 

25-Aug-84 

DEMQED.TXT 

1 

25-Aug-84 

OEMOSP 

,  MAC 

10 

25-Aug-B4 

QDT  .OBJ 

9 

25-Aug-84 

SYSLIB. OBJ 

202 

28-0ct-32 

SYSMAC.SML 

37 

25-Aug-84 

BASIC  . 

,  SAV 

52 

05-Mar-84 

CREF  .SAV 

6 

25-Aug-84 

SETDAT. SAV 

!2-Sep-84 

<  UNUSED  > 

83 

33  Files,  891  Blocks 
83  Free  blocks 


STARTS. COM 

ASS  I SN  DY0 :  DK : 
ASSIGN  MT0!  2 
ASSIGN  TT:  5 
ASSIGN  TT i  7 
ASSIGN  LP:  6 
SET  TT:  SCOPE 
SET  USR  NOSWAP 
SET  LP:  CTRL 
SET  LP:  NOFORM0 
SET  LP:  LC 
R  LPINIT 
R  SETDAT 
DATE 
TIME 
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C  P W  WORKING  DISK  DIRECTORIES 
MINCE  5.  SCRIBBLE 

ALPH  .COM  ok  :  CAT 


Ok 

CAT 

.  COM 

2k 

CONFIG 

.DAT 

9k 

CRAYON  .COM 

24k 

1  k 

INITFL 

.COM 

lk 

MINCE 

.  COM 

31k 

MINCE  .3WP 

97k 

12k 

PIP 

.COM 

9k 

REC 

.COM 

lk 

SCRIBBLE.COM 

27k 

Ilk 

SEN 

.  COM 

1  k 

Total  of  230k  in  14  <iles  with  Ilk  space  remaining, 


SCRIBBLE  DISK 

CAT  .COM  2k  :  CONFIG  .DAT  9k  :  CRAYON  .COM 
SCRIBBLE.COM  27k  ;  SCRIBBLE.OVL  Ilk 
Total  of  80k  in  a  files  with  161k  space  remaining. 


.COM  8k 


CP/M  SYSTEM  WITH 
ASM  .COM 

ED  .COM 

LOAD  .COM 
SEN  .COM 
WP  .COM 

WPEDFD  .WPO 
WPEDFORM . WPO 
WPEDIT2  .WPO 
WPED5VRD . WPO 


PALANTIR 
3k  :  CAT 


GENSYS 

MOVCPH 

STAT 

WPEDCCP Y 

WPEDFI 

WPEDHELP 

WPEDPAGE 

WPEDTYPE 


COM  2k 
COM  lk 
COM  10k 
,  COM  ok 
WPO  4k 
,WPO  lk 
,  WPO  2k 
.WPO  3k 


DDT 

HELP 

PIP 

SUBMIT 

WPEDCOM 

WPEDFILE 

WPEDINIT 

WPEDPRN2 

WPEFL 


COM  5k 
WPH  23k 
COM  3k 


WPO  4k 
WPO  4k 
WPO  5k 
WPO  20k 


Total  of  180k  in  36  files  with  61k  space  remaining, 


BD5  C  WORKING  DISK 


BDS 

.LIB 

ak 

:  BDSCIO  .H 

5k  : 

C 

.CCC 

CLIB 

.COM 

6k 

:  COMPILE  .COM 

14k  : 

DEFF 

.CRL 

LINK 

.COM 

5k 

:  WILDEXP  .CRL 

3k  : 

WILDE /.P 

.DOC 

DUMP  .COM 
INITFL  .COM 
REC  .COM 
UNLOAD  .COM 
WPEDFCD  .WPO 
WPEDFIND. WPO 
WPEDIT  .WPO 
WPEDPRNT. WPO 
XSUB  .COM 


CC2  .COM  16k 

DEFF2  . CRL  6k 


Total  of  74k  in  11  files  with  167k  space  remaining 


FORTH  WORKING  DISK 

FORTH  .COM  24k  :  FORTH  .SCR  87k  :  EDITOR  .SCR  63k  :  SCOPY  .SCR  21k 
UPDATE  .DOC  13k 

Total  of  208k  in  5  files  with  33k  space  remaining 
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EQUIPMENT  INVENTORY 

This  Is  a  listing  of  all  of  the  Geophysical  Institute  equipment  located  at  the 
McMurdo  Station  Infrasonics  Lab,  or  at  the  Windless  Bight  Infrasonic  Observatory. 
An  asterisk  indicates  that  no  number  exists. 


GI  no. 


Model  number  Serial  No. 


Manufacturer 


Description 


016912 

11/03-LH 

AG21256 

013280 

1 1 / 03— LK 

AG27606 

★ 

M7270 

A8001 56981 

★ 

M7270 

2474387 

★ 

M7270 

1950169 

★ 

M8044-DB 

M09500673 

★ 

M8 044-08 

M09351111 

★ 

M8044-DB 

M09 501893 

★ 

M8043 

AB01604VL4 

★ 

M8043 

AB92129892 

★ 

M8043 

AB0330DZ53 

★ 

M8012 

AB926 54806 

* 

M8012 

1956191 

★ 

M8012 

A801301KT7 

★ 

W941 

* 

★ 

W941 

* 

★ 

M7940 

AB1090T0C4 

★ 

W987 

* 

★ 

DT1761-DI-PG 

19242 

★ 

DT1761-DI-PG 

19240 

★ 

DT1761-DI-PG 

21461 

★ 

DQ120 

20072 

★ 

DQ120 

20075 

★ 

TCU-50 

005547 

★ 

TCU-50 

006421 

★ 

A4432-4 

3042 

★ 

804140-01 

1928 

D100Q 

161 

016916 

ADM- 3 A 

579498 

7472 

ADM-3A 

43225 

7666 

ADM-3A 

83499 

013884 

P80RA 

337459 

016915 

P80RA 

374644 

13102 

440G 

12  575 

7766 

440G 

11174 

★ 

440G 

9332 

016909 

GP100/912 

3661 

013308 

1749-8-4-110-UL 

01796 

013612 

1 7  49-8-4-11 0-UL 

02879 

013328 

1749-8-4-110-UL 

01881 

013601 

DSD430 

43  -  54  5 

13075 

DSD440 

44-4053 

016911 

510 

510021 

145 

UPS-252-1 

538 

017071 

UPS-252-1 

661 

Digital 

Digital 

Digital 

Di  gi  tal 

Digital 

Di  gi  tal 

Digital 

Digital 

Digital 

Di  gi  tal 

Digital 

Di  gi  tal 

Digital 

DI  gi tal 

Digital /GI 

Digital /G I 

Digital 

Digital 

Data  Translation 


BA11-N  computer  mainframe 
BA11-N  computer  mainframe 
KD11-HA  processor  board 
KD11-HA  processor  board 
KD11-HA  processor  board 
MSV11-D  32K  MOS  memory  br 
MSV11-D  32K  MOS  memory  br 
MSV11-D  32K  MOS  memory  br 
DLV11-J  serial  interface 
DLV11-J  serial  interface 
0LVI1-J  serial  interface 
BDV11  bootstrap  board 
BDV11  bootstrap  board 
BDV11  bootstrap  board 
4Hz  A/D  trigger  board 
4Hz  A/D  trigger  board 
DLV11  serial  interface  br 
Quad  extender  board 
A/D  converter  board 


Data  Translation  A/D  converter  board 

Data  Translation  A/D  converter  board 

Dilog  Tape  controller  board 

Dilog  Tape  controller  board 

Digital  Pathways  Real-time  clock  board 

Digital  Pathways  Real-time  clock  board 

Data  Sys.  Design  0SD440  disk  controller  br 
Data  Sys.  Design  DSD430  disk  controller  br 
Decmatlon  Z-80  processor  board 

Lear  Siegler  Computer  terminal 

Lear  Siegler  Computer  terminal 

Lear  Siegler  Computer  terminal 

Epson  RX-80  printer 

Epson  RX-80  printer 

Integral  Data  Sys  Printer 
Integral  Data  Sys  Printer 
Integral  Data  Sys  Printer  (unusable) 

Dig.  Engr/Comprint  Graphics  printer 
Dlgl-Data  Tape  transport 

Digl-Data  Tape  transport 

Digl-Data  Tape  transport 

Data  Sys.  Design  Disk  drive 

Data  Sys.  Design  Disk  drive 

Addmaster  Reader/punch 

Elgar  Uninterruptible  power  su' 

Elgar  Uninterruptible  power  sui 
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Manufacturer 


Description 


61  no. 

Model  number 

Serial  no. 

NS-7300 

A601-R 

167811 

NS-7304 

A601-R 

167815 

NS-7305 

A601-R 

167816 

NS-7306 

A601-R 

167817 

MS-7307 

A601-R 

167818 

12907 

RV-301B 

482 

12907 A 

AR-320 

205 

013336 

9100 

1793 

AF-9494 

8210 

200 

AF-9495 

8210 

856 

★ 

CS15-0.4 

1223 

017201 

N-6 

W8A 

017202 

N-7 

SCB 

017203 

N-2 

★ 

♦ 

8-350 

22176 

★ 

B-350 

35904 

016913 

* 

222698 

017204 

★ 

152615 

* 

★ 

★ 

★ 

★ 

★ 

016914 

★ 

★ 

★ 

51FEB112  101 

P201341 

* 

4024 

★ 

* 

4024 

★ 

016910 

APMB 

2119 

★ 

* 

★ 

★ 

00327 

★ 

13079 

JTK-17 

★ 

13010 

214 

B108893 

013805 

310 

★ 

017205 

802  OA 

26807  58 

013804 

806  OA 

3205704 

11273 

II 

★ 

★ 

456 

★ 

016917 

173RTN-1190A 

JH260M 

016918 

173RTN-1190A 

JH262M 

016919 

.173RTN-U90A 

JH263M 

GR17526 

T15P^3 

098 

6R17533 

R15F 

098 

GR17524 

T15P23 

099 

GR17  535 

R15F 

099 

GR17  52  5 

T15P23 

100 

GR17534 

R15F 

100 

11186 

T15F23 

121 

11185 

R15F 

121 

11969 

T15F23 

147 

11968 

R1 5F 

147 

017069 

T15F20 

492 

017070 

R15F 

492 

13082 

T15F20 

621 

13083 

Ri  5F 

621 

013353 

T15F20 

705 

013354 

R15F 

705 

013606 

TR150 

808 

013605 

R15F 

808 

13060 

PCU-001- 50004 

SC 1014 

Esterline  Angus 

Chart  recorder 

Esterline  Angus 

Chart  recorder 

Esterline  Angus 

Chart  recorder 

Esterline  Angus 

Chart  recorder 

Esterline  Angus 

Chart  recorder 

Teledyne/Geotech 

Hel icorder 

Teledyne/Geo tech 

Helicorder  amplifier 

Datum 

Time  code  generator 

Systron  Donner 

Digital  clock 

Systron  Donner 

Digital  clock 

Valor 

Power  supply 

Geophys.  Inst. 

Discriminator  card  cage 

Geophys.  Inst. 

Discriminator  card  cage 

Geophys.  Inst. 

Slow-speed  tape  drive 

AMCO 

B1 ower 

AMCO 

B1 ower 

AMCO 

Equipment  rack 

AMCO 

Equipment  rack 

(unknown) 

Equipment  rack  (gray) 

(unknown) 

Equipment  rack  (blue  &  wi 

Smith  Systems 

Magnetic  tape  rack 

Carrier 

Air  conditioner 

West  Bend 

Humldl fier 

West  Bend 

Humidifer 

SIMCO 

Portable  static  eliminatt 

Geophys.  Inst. 

Light  table 

Nat'l  Geographic 

16“  physical  globe 

Jensen  tools 

Tool  kit 

Tektronix 

Storage  oscilloscope 

Triplett 

Multimeter 

FI  uke 

Digital  multimeter 

Fluke 

Digital  multimeter 

Logic  Technology 

Pocket  freq.  counter 

Skil 

1/4"  electric  drill 

Motorol a 

Micro  2-way  FM  radio 

Motorola 

Mi  cor  2-way  FM  radio 

Motorola 

Micro  2 -way  FM  radio 

Monitron 

150.935  MHz  transmitter 

Monitron 

190.935  MHz  receiver 

Monitron 

152.165  MHz  transmitter 

Monitron 

152.165  MHz  receiver 

Monitron 

154.565  MHz  transmitter 

Monitron 

154.565  MHz  receiver 

Moni tron 

153.356  MHz  transmitter 

Monitron 

153356  MHz  receiver 

Monitron 

157.500  MHz  transmitter 

Monitron 

157.500  MHz  receiver 

Monitron 

153.110  MHz  transmitter 

Monitron 

153.110  MHz  receiver 

Moni tron 

155.000  MHz  transmitter 

Monitron 

155.000  MHz  receiver 

Moni tron 

159  .  56  5  MHz  transmitter 

Monitron 

159.  565  MHz  receiver 

Moni tron 

153.960  MHz  transmitter 

Moni tron 

153.960  MHz  receiver 

Teledyne/ Isotopes 

Sentinel  power  condition 
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5  large  infrasonlc  sensors 

3  small  Infrasonlc  sensors 

4  spare  oscillators  for  infrasonlc  sensors 

2  spare  microphone  capsules  for  infrasonlc  sensors 
4  spare  N-7  discriminator  cards 

3  spare  N-6  discriminator  cards 
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Appendix  D 

DOCUMENTATION  DIRECTORY 


I NFR ASON ICS 
VOLUME  1 
OWNER'S  MANUAL 


Introduction  to  Infrasonics 
Hardware  Overview 
Software  Overview 
System  Operation 
Systea  Calibration 
Troubleshooting 
Analogue  Equipment 
Demodul ator s 

Slow-Speed  Analogue  Tape 
Digital  equipment 

Windless  Bight  to  Infrasonics  Lab  Radio  Link 

Systea  Specif ications 

Computer  Systea  Configurations 

Equipment  Inventory 

Documentation  Directory 

Component  Data  Sheets 

Notes  on  McMurdo  Station 

TCK8CH  Systea  Manual 


* 


I  NFRASON ICS 
VOLUME  2 
SOFTWARE 


I.  DATA  RETRIEVAL  PROGRAMS 

II.  OFFLINE  ANALYSIS  PROGRAMS 

III.  DATA  ACQUISITION  ENSEMBLE:  RT68CH 

IV.  UTILITY  PROGRAMS 

V.  RIOMETER  UTILITY  PROGRAMS 

VI.  UTILITY  ASSEMBLY  LANGUAGE  SUBROUTINES 

VII.  DATA  ACQUISITION  AND  RETRIEVAL  FORTRAN  SUBROUTINES 

VIII.  OFFLINE  ANALYSIS  FORTRAN  SUBROUTINES 


I  NFRASON ICS 

VOLUME  3 

PAPERS 


I.  SUPPLEMENTAL  BUDGET s  ANTARCTIC  ATMOSPHERIC  INFRASOUND,  APRIL  1977 

II.  RESEARCH  PROPOSAL:  ANTARCTIC  ATMOSPHERIC  INFRASOUND,  JUNE  1977 

III.  PAPERS  ON  INFRASONICS  BY  DR.  CHARLES  R.  WILSON 

Evidence  o f  Tno  Sound  Channels  in  the  Polar  Ateosphere  from 

Infrasonic  Observations  of  the  Eruption  of  an  Alaskan  Volcano 
Infrasonic  Pressure  Waves  from  the  Aurora:  a  Shock  Wave  Model 
Infrasonic  Waves  from  Moving  Auroral  Electrojets 
Auroral  Infrasonic  and  Ionospheric  Absorption  Substorms 
Infrasonic  Waves  froa  Alaskan  Volcanic  Eruptions 
Auroral  Infrasonic  Waves  and  Poleward  Expansions  of  Auroral 
Substorns  at  Inuvik,  N.W.T.,  Canada 
Auroral  Infrasonic  Wave-Senerati on  Mechanism 
Auroral  Infrasonic  Wave  Generation  Mechanism 
Seasonal  Variation  of  Auroral  Infrasonic  Wave  Activity 
The  Motions  of  Peaks  in  Ionospheric  Auroral  Absorption  and  Auroral 
Infrasonic  Waves 

Infrasonic  Wave  Generation  by  Aurora 

Auroral  Infrasonic  Waves  Observed  at  Windless  Bight,  Antarctica 

IV.  PAPERS  ON  INFRASONICS  BY  OTHER  SCIENTISTS 

Variation  of  Nuclear  Explosion  Generated  Acoustic-Gravity  Wave 
Forms  with  Burst  Height  and  with  Energy  Yield 
An  Infrasonic  Pressure  Disturbance  Study  of  Two  Polar  Substorns 
Auroral  Audibility 

The  D-C  Pressure  Sumraator:  Theoretical  Operation,  Experimental 
Tests  and  Possible  Practical  Uses 
Infrasound  Originating  Near  Mountainous  Regions  in  Colorado 
Case  Study  Using  Arrays  of  Infrasonic  Microphones  to  Detect  and 
Locate  Meteors  and  Meteorites 

• 

V.  PAPERS  ON  DATA  ANALYSIS  TECHNIQUES 

Data-Adapti ve  Polarization  Filters  for  Multichannel  Geophysical  Data 
Lecture  Notes  on  Polarization  Filters 

Detection  and  Filtering  Signals  from  Scalar  Arrays  Using  the  State 
Detector  Approach 

VI.  EXAMPLES  OF  INFRASONIC  SIGNALS 
Auroral  Infrasonic  Waves 
Eruption  of  Mt.  Augustine  Volcano 
Chinese  Atmospheric  Nuclear  Test 
Mi crobaroms 
Surface  Seismic  Waves 
Mountain  Associated  Infrasound 
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I NFR ASON ICS 

ADDITIONAL  BOOKS 
MANUALS 


I.  HARDWARE  MANUALS  AND  BOOKS  J 

DEC  Mi crocomputer  Processor  Handbook  5 

DEC  Mi  crocoaputer  Interfaces  Handbook 

DEC  Meaones  and  Peripherals  •/ 

TTL  Cookbook  jj 

Data  Acquisition  and  Conversion  Handbook  I 

Code  of  Federal  Regulations,  Title  10:  Energy  ^ 

Linear  IC  Applications  Notes,  Volume  1 
Linear  IC  Applications  Notes,  Volume  2 
ARRL  Antenna  Book 
Assorted  Device  Data  Books 


II.  SOFTWARE  MANUALS  AND  BOOKS 

RT-11  Volume  1:  Installation  Manuals 
Docuaentati on  Directory 
System  Release  Notes 
DECTAPE  Installation  Notes 
PDT-U  Installation  Notes 
System  Generation  Manual 
Intro  To  RT-11 

RT-11  Volume  2:  Coaputer  Manuals 
System  User's  Guide 
TECO  User's  Guide 
System  Message  Manual 
RT-11  Volume  3:  Desk  Manuals 

Advanced  Programmer's  Guide 
MACRO  Language  Reference  Manual 
RT-11  Volume  4:  FORTRAN  Manuals 
Installation  Guide 
User's  Guide 

Language  Reference  Manual 
RT-11  Volume  5:  BASIC  and  PASCAL  Manuals 
BASIC  Installation  Guide 
BASIC  User ' s  Guide 
BASIC  Language  Reference  Manual 
PASCAL  User  Manual 
PASCAL  Intro  to  Programming 

RT-11  Volume  6:  FORTRAN  Scientific  Subroutine  Package 
FORTRAN  For  Humans 
Introduction  to  BASIC 
A  Practical  Introduction  to  PASCAL 
CP/M  Volume  1:  User  Manuals  ■ 

D108Q  Installation  and  Operation  Manual  B 

8086  FORTH  User's  Manual  S 

CP/M  Volume  2:  Word  Processing  Manuals  4 

MINCE  Screen  Editor  Manuals  9 

SCRIBBLE  Text  Formatter  Manuals  B 

BDS  C  Compiler  Manuals  H 

PALANTIR  Word  Processor  Installation  and  Operation  9 

The  CP/M  Handbook  U 

Discover  FORTH 

The  C  Programming  Language  J 

The  Fast  Fourier  Transform  {■ 

Theory  and  Application  of  Digital  Signal  Processing  B 
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INFRASQNICS 

ADDITIONAL  BOOKS 

REPORTS 


SIR  PR06RESS  REPORTS 

SIR  80-3  Digital  Acquisition  and  Analysis  Systea  tor  Antarctica 
SIR  81-2  Digital  Infrasonic  Systea  Installation  in  Antarctica 
SIR  81-4  Antarctic  Ataospheric  Intrasound 
GIR  82-1  Antarctic  Digital  Infrasonic  Systea  Upgrade 
GIR  32-3  Antarctic  Microbaroa  Study 
GIR  83-1  Antarctic  Infrasonic  Systea  Software 
GIR  83-2  Report  on  Search  for  an  Infrasonic  Signal  at  Windless 
Bight,  Antarctica  froa  Nay  11,  1983  Event  at  14S,  1.5W 
GIR  83-3  Antarctic  Ataospheric  Observations 

GIR  84-1  Estimation  of  the  Energy  of  Ataospheric  Explosions  Using 
the  Infrasonic  Array  at  Windless  Bight,  Antarctica 

OTHER  INFRASONIC  REPORTS 

A  Digital  Data  Acquisition  and  Analysis  Systea  for  Infrasonic 
Waves  in  Antarctica  (Master's  Thesis  by  B.  David  Spell) 
Research  on  Linear  and  Nonlinear  Ataospheric  Waves 
Solitary  Waves:  A  Hazard  to  Aircraft  Operating  at  Low  Altitudes 
Infrasonics  Analysis  Software  by  Dr.  John  Olson 

UNIVERSITY  OF  ALASKA  REPORTS 

Geophysical  Institute  Annual  Report  1979-1980 

University  of  Alaska-Fairbanks  1981-1983  Catalog 

University  of  Alaska-Fairbanks  1982-1933  Research  Annual  Report 


EQUIPMENT 

VOLUME  1 

DEC  FIELD  PRINTS 


PDP11/03-L  FIELD  MAINTENANCE  PRINT  SET 

1.  Unit  Assembly  11/03-L 

2.  Unit  Assembly  11/03-L  Parts  List 

3.  Field  Instructions  Si  Acceptance 

4.  Shipping  List 

5.  EIS/FIS  Micros  Parts  List 

BA11-N  FIELD  MAINTENANCE  PRINT  SET 

1.  Drawing  Directory 

2.  Unit  Assembly 

3.  Unit  Assembly  Parts  List 

4.  Harness  AC  Power 

5.  Harness  DC 

6.  Logic  Assembly  Drawing  Directory 

7.  Logic  Assembly  Unit  Assembly 

8.  Backplane  Drawing  Directory 

9.  Backplane  Unit  Assembly 

10.  Backplane  Circuit  Schematic 

11.  AC  Input  Box  Drawing  Direcfory 

12.  AC  Input  Box  Unit  Assembly 

13.  Switch  Voltage  Select  Assembly 

14.  Bezel  Assembly 

15.  Front  Panel  Drawing  Directory 

16.  Front  Panel  Unit  Assembly 

17.  Front  Panel  Parts  List 

18.  Front  Panel  Circuit  Schematic 

19.  Cable  Console/Backplane 

20.  Door  Assembly 

21.  Power  Supply  Drawing  Directory 

22.  Power  Supply  Unit  Assembly 

23.  Master  Board  Drawing  Directory 

24.  Master  Board  Unit  Assembly 

25.  Master  Board  Parts  List 

26.  Master  Board  Circuit  Schematic 

27.  Control  Board  Drawing  Directory 

28.  Control  Board  Unit  Assembly 

29.  Control  Board  Parts  List 

30.  Control  Board  Circuit  Schematic 

31.  Power  Monitor  Drawing  Directory 

32.  Power  Monitor  Unit  Assembly 

33.  Power  Monitor  Parts  List 

34.  Power  Monitor  Circuit  Schematic 

BDV11-AA  FIELD  MAINTENANCE  PRINT  SET 

1.  Unit  Assembly  (BDV11-A! 

2.  Unit  Assembly  (M8012) 

3.  Parts  List  (M8012) 

4.  Circuit  Schematic  (M8012) 

5.  Engineering  Specifications  (M8012) 

6.  Shipping  List  (BDV11-A) 


IV.  DLV11-J  FIELD  MAINTENANCE  PRINT  SET 

1.  Parts  List 

2.  Shipping  List 

3.  Circuit  Scheaatic 

4.  Unit  Asseably 

5.  ROM  Map 

V.  KD 1 1 -HA  FIELD  MAINTENANCE  PRINT  SET 

1.  Parts  List 

2.  Unit  Asseably 

3.  Circuit  Scheaatic 

VI.  MSV11-D  FIELD  MAINTENANCE  PRINT  SET 

1.  Drawing  Directory  (MSVll-D) 
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F.  Bus  Interface  IC  Pins 

G.  LSI-ll  Bus  Accesory  Options  Installation  and  Operation 

H.  DLV11  I/O  Jumper  Configurations 

IV.  MRV11-BA,  MSV11-C,  MSV11-D/E  USER'S  MANUALS 

I.  Introduction 

2.  Installation 

3.  Technical  Description 

4.  (MRV11-BA  Manual  Only)  Using  MRV11-BC  PROMS 

5.  Maintenance  (Chapter  4  in  MSV11  Manuals) 


ROM  chips  are  8316E  with  CS1,CS2,CS3  low 

Execute  CPU  test  on  power-up  or  restart' 

Execute  memory  test  on  power-up  or  restart 

No  DECNET  boot 

Console  test  and  dialogue 

DY0:  boot 


No  ROM  Boot 

LTC  function  is  program  controlled 
Digi-Data  1749-8-4-1 10-UL  Tape  Transport  s/n  01881 
Tape  Unit  0 

Transport  status  gated  by  ARM  I/O 
WRITE  MODE  remains  true  unless  SWS  unused 
EOT  remains  true  after  passing  marker 
Single  density  NRZ  only  unit 
On-line  control  from  front  panel 
45ips  tape  speed 

9  track,  800  bpi,  NRZ  format 


High  Density  lamp  indicates  EDT 
On  Line  lamp  indicates  ON  LINE 
♦  5vDC  test  card  supply  disabled 
Operate  transport 

Lear  Siegler  ADM-3A  Video  Terminal  s/n  43225 
Baud  rate:  1200 
Full  Duplex 
RS-232C  communication 
Auto  NL  after  80th  character 
Lower  Case  characteres  enabled 
Odd  parity 
9  data  bits 
1  stop  bit 
Parity  inhibited 
Bit  8  equals  0 
24  line  display 
6BH2  refresh  rate 

Remote  (CTRL-Z)  clear  screen  enabled 
Keyboard  Lock  enabled 
Upper/Lower  Case  display 
Destructive  cursor 
Local  (direct  to  computer)  mode 

Block  Cursor  with  cursor  control 
Normal  operation 

Integral  Data  Systems  IDS-440G  Paper  Tiger  Printer  s/nl2575 
Page  length:  11  inches 
Baud  rate:  1200 
Control  codes  disabled 
Serial  EIA  interface 
12  characters  per  inch 
8  lines  per  inch 

Page  skip  over  perforation  disabled 
Auto  LF  on  receipt  of  CR  disabled 
Remote  control  deselect  disabled 
60  H:  power  supply 


W5,W7  installed 
W6,W8,W13  removed 
E15-A1  ON 
E15-A2  ON 
E15-A3  OFF 
E15-A4  ON 
E 1 5-A5 , A8  OFF  . 

E 1 5-A6 , A7  ON 
E21-B1  OFF 
E21-B2 , B 3  ,  B  '  OFF 
E21-B5  ON 

W8,W10  installed 
W12  installed 
W13  installed 
W18  installed 
W 1 9  installed 
W30  installed 
S3-1 , 2  CLOSED 
53-3,4,5,6  OPEN 
Sl-2,3,6  CLOSED 
SI— 1 ,4,5,7  OPEN 
W3,  W24  installed 
W23  installed 
W27  installed 
W4  removed 
S2  in  center  pos. 

51 - 6  ON 

52- 5  OFF 
S2-6  ON 

52- 7  ON 

53- 1  ON 
S3-2  ON 
S3-3  OFF 
S3-4  ON 
S3-5  OFF 

53- 6  ON 

54- 1  OFF 
S4-2  OFF 
S4-3  OFF 
S4-4  OFF 

54- 5  OFF 
S 4  —  6  ON 

55- 1,2,3,4,5  OFF 
S5-6  ON 

S5-7  ON 
56  OFF 

S3- 1 , 3  ON,  S3-2  0 
53-4,5  ON 
53-6  OFF 

53- 7  ON 

S 4  —  1  OFF,  5  4-2  ON 

54- 3  ON 
S4-4  OFF 
S4-5  OFF 
S 4 - 6  OFF 
S4-7  OFF 


EQUIPMENT 

MICROFICHE  SET  2 

SOFTWARE 

I.  BDV11-AA  DIAGNOSTIC 

II.  DEC/X11  PROCESSOR  TEST 

III.  DEC/ X 1 1  BDV 1 1  ROM  CHECKSUM  VERIFIER 

IV.  DLV11  DIAGNOSTIC  TEST 

V.  LSI-11  BASIC  INSTRUCTION  TESTS 

VI.  LSI-11  DECIMAL  INSTRUCTION  TESTS 

VII.  LSI-11  MOVE  STRING  INSTRUCTION  TESTS 

VIII.  LSI-11  EIS  INSTRUCTION  TESTS 

IX.  LSI-11  FIS  INSTRUCTION  TESTS 

X.  POT-1 1 /LSI-1 1  TRAPS  TEST 

XI.  PDP11  MOS/CORE  MEMORY  EXERCISER 

XII.  RX21 1 ,RXV1 1  UTILITY  DRIVER  (BRUTE  FORCE  DRIVER) 


Appendix  E 

COMPONENT  DATA  SHEETS 


Note:  Data  sheets  for  components  such  as  the  LM105,  the  NE565,  the  747 
and  other  components  are  included  as  pages  117  to  149  of  the  original 
copy'  of  this  manual.  Due  to  their  availability  outside  of  Antarctica 
they  are  not  included  in  any  other  copies  of  this  manual. 


A 


A 
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Appendix  F 

NOTES  ON  HCHURDQ  STATION 


Fil_Finding_Ygur_Way_ Around 


McMurdo  Station  is  an  aaazing  conglomeration  of  teiporary  structures,  sewer 
lines  and  ’booatown'  sprawl.  Much  can  be  said  about  how  things  have  not 
necessarily  been  done  in  the  east  efficient  eanner,  but  such  things  are  best 
left  to  be  discovered  first  hand. 

Upon  first  arrival  to  McMurdo,  aost  people  are  transported  froe  the  runway 
to  the  Chalet,  nerve  center  for  civilian  operations  at  McMurdo.  A  short 
briefing  and  keys  to  rooas  await  the  new  arrivals.  Those  who  are  in 
Antarctica  on  research  grants  (locally  known  as  ’Grantees')  are  usually  housed 
either  in  the  Hotel  or  the  MMI,  next  to  the  Chalet. 

From  there,  the  first  place  to  find  is  Building  153.  This  is  the  largest 
building  on  the  continent,  and  houses  the  aessdecks  (cafeteria),  ships  store 
(gift  shop),  disbursing  office  (bank)  and  library  (library).  This  is  also  the 
building  where  all  winter-overs  will  live  once  the  suaeer  folks  are  gone. 

As  can  be  seen  froe  the  nap  in  figure  1,  the  Infrasonics  Lab  is  located  soee 
distance  froa  the  central  station.  Transport  to  the  lab  during  the  suaeer  is 
usually  by  foot.  During  the  winter  a  vehicle  is  orovided  for  science  support 
which  is  shared  aaong  all  grantees,  but  is  aainlv  used  for  transport  to  the 
Cosray  and  Infrasonics  labs. 

A  few  other  buildings  worth  knowing  about:  The  BFC  is  the  field  center, 
where  equipeent  for  field  work  aay  be  checked  out.  The  Foldaway  is  the  center 
of  USARP  Construction,  and  houses  eost  of  the  civilian  utilities  support 
offices.  The  Biolab  is  also  the  point  of  contact  for  obtaining  any  needs 
(froe  office  supplies  to  distilled  water)  other  than  field  equipeent.  MAC 
Center  (Building  165)  houses  the  Navy  adeim strati ve  offices,  and  'of 
particular  interest)  the  coaauni cat i ons  center  and  weather  office. 

During  the  suraaer,  aost  support  needs  are  handled  through  the  Chalet.  This 
is  where  trucks  are  checked  out,  aessage  traffic  is  sent  and  received,  all 
flights  (hercs  and  helos)  are  planned,  and  a  aultitude  of  crises  are  handled 
with  ease.  The  Chalet  staff  are  often  overworked  and  deal  with  far  too  aanv 
people  who  are  aore  demanding  than  understanding.  It  pays  to  treat  thea  well, 
and  to  keep  in  aind  that  there  are  other  needs  besides  your  own. 


F.  2  Postal  and  Telecom  Services 


There  are  a  number  of  postal  and  telecom  services  available  at  HcHurdo  or 
through  New  Zealand's  Scott  Base.  US  Mail  is  delivered  regularly  when  there 
are  Flights,  and  is  usually  sorted  within  six  hours  of  the  flight  arrival. 
All  civilian  mail  is  sorted  into  pigeonholes  in  the  mail  rooa  upstairs  in  the 
Hotel.  A  flag  is  flown  from  the  Hotel  once  the  nail  has  been  sorted. 

The  address  for  US  mail  to  be  delivered  to  HcHurdo  Station  is: 

Box  700,  USARP 
XNAVSUPPFORANTARCTICA 

FPO  San  Francisco,  CA  96601  (or  96692  for  winter-over  personnel) 

In  addition,  mail  may  be  received  through  the  New  Zealand  postal  system  via 
two  routes.  These  are: 

7.NSF  Representative  New  Zealand 
US  Navy  Post  Office 
Private  Bag 
Chri stchurch 
NEW  ZEALAND 
or 

Inf rasoni cs 
Scott  Base 
XCPO  Christchurch 
NEW  ZEALAND 

All  mail  enroute  to  Antarctica  (and  much  of  it  returning  from  Antarctica)  is 
searched  by  customs  officials  for  any  illicit  materials  (drugs,  agricultural 
products,  meats)  or  customs  violations.  US  Nail  requires  the  same  postage  as 
if  mailed  to  San  Francisco.  Nail  addressed  to  either  of  the  New  Zealand 
addresses  must  carry  the  appropriate  international  postage. 

Both  the  Navy  Post  Office  in  HcNurdo  and  the  NZ  Post  Office  at  Scott  Base 
provide  the  full  range  of  postal  services.  The  NZ  system  is  often  faster  for 
mail  addressed  to  places  other  than  the  USA.  In  addition,  Ross  Dependancy 
(Antarctic)  stamps  and  postmarks  are  available  for  mail  pasted  at  the  Scott 
Base  Post  Office.  (This  is  the  only  post  office  in  the  world  where  Ross 
Dependancy  stamps  are  valid.)  All  packages  sent  from  McNurdo  must  bear  a 
customs  declaration  on  the  outside  of  the  package.  Registered  mail  may  be 
sent  from  HcHurdo  only  between  October  and  February. 

One  advantage  of  the  Scott  Base  Post  Office  is  quick  service  for  processing 
film.  A  Kodak  mailer  sent  to  Kodak,  P.0.  Box  3003,  Wellington,  will  often  be 
returned  to  Scott  Base  within  three  weeks.  Sometimes  it  can  take  this  long 
just  for  mail  to  reach  the  states.  Kodak  mailers  are  available  in  the  Ships 
Store. 


delivered  as  Guard  Hail  from 
Christchurch  to  HcHurdo 


delivered  as  NZ  Nail  to 
Scott  Base 
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Telegram  services  are  also  available  both  through  the  Navy  and  NZ  systems. 
Telegrams  sent  to  McMurdo  may  be  addressed: 

PMS  (your  name) 

C/0  NSF  REPRESENTATIVE 
MCMURDO  STATION 
ANTARCTICA 
PLEASE  ROUTE  THRU: 

NAVAL  AIR  STATION 
STOCKTON  CA 

These  telegrams  are  only  charged  lor  transmission  to  Stockton,  CA.  Telegrams 
may  also  be  sent  via  the  New  Zealand  system.  The  address  is: 

(your  name) ,  INFRASONICS 
SCOTT  BASE 
NEW  ZEALAND 

Limited  telephone  services  are  also  available  to  Ross  Island.  Through  the 
MARS  (Military  Affiliate  Radio  Service)  system  phone  patches  may  be  initiated 
from  McMurdo  to  any  location  in  the  states.  A  MARS  operator  in  the  states 
Mill  place  a  collect  phone  call  to  the  destination  party.  The  circuit  is 
one-Nay,  which  means  that  each  party  must  indicate  when  they  are  finished 
speaking  by  saying  "OVER."  This  lets  the  radio  operators  know  when  they  should 
key  (or  unkey)  the  microphone.  Phone  patches  are  subject  to  all  kinds  of 
radio  interference  and  are  inherently  unreliable. 

The  Scott  Base  post  office  also  maintains  a  telephone  circuit.  This  circuit 
is  a  private,  and  two-way  circuit.  Also,  since  they  are  only  transmitting  to 
New  Zealand  and  have  a  number  of  frequencies  to  choose  from,  this  circuit  is 
much  more  reliable  than  the  phone  patches.  International  calls  may  be  placed 
from  Scott  Base,  and  these  go  by  satellite  from  New  Zealand.  Calls  must  be 
booked  in  advance,  and  must  either  be  collect  or  paid  in  cash  upon  completion 
of  the  call.  If  paid  in  cash,  the  cost  is  NZI2.80  per  minute;  if  collect  the 
cost  is  somewhat  higher.  During  the  summer  they  are  usually  limited  to  10 
minutes.  Calls  may  also  be  initiated  from  anywhere  in  the  world  to  Scott 
Base.  The  procedure  to  book  a  southbound  call  is  to  contact  the  New  Zealand 
Island  Services  operator  and  set  up  a  booking  for  a  call  to  Scott  Base. 


Ei3_Weath§r_and_Cl i mate 


The  McMurdo  climate  is  somewhat  temperate  (for  the  continent)  due  to  its 
coastal  location.  Summer  temperatures  hang  between  -10  and  +2  degrees 
Celsius,  and  winter  temperatures  are  generally  in  the  -20  to  -30  degrees 
Celsius  range.  Spring  and  fall  generally  bring  stormy  weather,  while  summer 
and  winter  are  generally  crisp  and  clear.  In  practice,  however,  the  weather 
is  not  terribly  predictable. 
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a 


McMurdo  Station  has  established  a  system  of  Weather  Conditions,  in  an  effort 
to  proaote  safety.  Condition  III  is  the  normal  condition,  which  means  that 
things  aren't  too  bad.  Condition  II  is  set  whenever  winds  are  above  40  knots, 
visibility  is  less  than  1/4  mile,  or  the  effective  wind  dull  factor  is  colder 
than  -70  degrees  Fahrenheit.  During  condition  II,  travel  outside  of  the 
station  complex  is  only  peraitted  in  radio  equipped  vehicles.  (The 
Infrasonics  lab  is  outside  of  the  station  complex.)  Condition  I  is  set 
whenever  the  winds  are  above  55  knots,  visibility  is  less  than  100  feet,  or 
the  effective  wind  chill  factor  is  colder  than  -100  degrees  Fahrenheit.  During 
Condition  I,  no  travel  outside  of  buildings  is  peraitted.  Some times  a 
Condition  I  Modified  is  set,  which  means  the  conditions  are  Condition  I,  but 
travel  within  the  station  complex  is  permitted. 

There  are  two  spots  along  the  road  from  the  station  complex  to  the 
Infrasonics  lab  which  are  prone  to  snowdrift  formation.  One  of  these  is  just 
a  few  yards  from  the  driveway  to  the  lab.  Care  should  be  taken  during  blowing 
snow  conditions  as  the  visibility  in  these  snowdrift  spots  is  always  much 
worse  than  the  rest  of  the  road. 


Eii_Q&tai.ni_ng_SuBBl  i.es 


During  the  summer,  mast  needs  will  be  supplied  through  the  support  of  the 
civilian  contractor  staff.  However,  during  the  winter,  most  of  these  people 
go  home,  and  you  will  be  on  your  own  to  requisition  items  from  GSk  (Sears 
South).  Figure  2  is  a  list  of  some  useful  items  that  may  be  requisitioned  from 


if 


How  to  fill  out  1230  ( S S K >  requisition  chits: 

1.  Today's  date:  last  digit  of  year  followed  bv  3-digit  Julian  day 

2.  Enter:  "  Inf r ason l cs" 

3.  Enter:  *C" 

4.  Required  delivery  date:  normally  one  week  after  today's  date  (sane  format) 
9.  Naee  of  itea 

13-15.  JCN:  R5529 1  4AA  553 

E.  Proj:  DX8 

21-22.  MSN  (see  below) 

24.  Unit  of  issue  (EA,  BX,  PK,  RO,  BD,  etc) 

25.  Quantity  desired 

29.  6SK  description  of  itea  required 
and  "  Inf rason i cs ,  x253* 

Some  useful  GSK  items. 


Common  name 
Acetate  (gummed)9330 
Allen  wrenches  5120 
Ball  paint  pen  7510 
Ball  point  pen  7510 
Battery,  9v  ol35 
Battery ,  67. 5v  6135 
Cotton  swabs  6515 
Document  prot.  7510 
Doormat  7220 

Elec,  tape  5970 

Eraser  7510 

Eraser  (pencil)  7510 
Felt  tip  pen  7520 

Felt  tip  pen  7520 

Felt  tip  pen  7520 

Felt  tip  pen  7520 

Filing  folders  7530 
File  handle  5110 
Grease  pencil  7510 
Grease  pencil  7510 
Grease  oencil  7510 
Hacksaw  5110 

Hacksaw  blade  5110 
Handle  5340 

Hydrometer  6630 

Index  tabs  7510 

Index  tabs  7510 

Index  tabs  7510 

Index  tabs  7510 

Index  tabs  7510 

Index  tabs  7510 

Index  tabs  7510 

Index  tabs  7310 

Latch  5340 

Masking  tape  7510 
Muf f i n  f an  4140 


NSN 

9330-00-618-7218 

5120-00-595-9244 

7510-00-935-7135 

7510-00-664-5197 

0135-00-900-2139 

6135-00-120-1005 

6515-00-303-8250 

7510-00-286-1407 

7220-00-205-3099 

5970-00-955-9976 

7510-00-285-2814 

7510-00-634-5352 

7520-00-904-1265 

7520-00-904-1266 

7520-00-904-1267 

7520-00-904-1268 

7530-00-291-0098 

5110-00-595-8325 

7510-00-174-3205 

7510-00-436-5210 

7510-00-223-6672 

5110-00-299-9657 

5110-00-243-0901 

5340-00-514-0491 

6630-00-171-5157 

7510-00-147-9477 

7510-00-285-5797 

7510-00-285-5799 

7510-00-285-5799 

7510-00-092-2601 

7510-00-082-2602 

7510-00-082-2603 

7510-00-082-2604 

5340-00-240-2310 

7510-00-266-6710 

4140-00-113-0989 


6SK  Description 

Plastic  sheet,  P/S  adhes  coated,  4x3  100/bx 

Key  set,  socket  headscrew 

Pen,  ball  point,  fine  tip,  retract,  black 

Pen,  ball  point,  fine  tip,  non-retract,  red 

Battery,  9v,  Duracell 

Battery,  BA-51,  67. 5v,  snap  connectors 

Applicator,  wood,  cotton  tip,  6",  100/pk 

Document  protector 

Mat,  floor,  (coir  fibre),  18*  x  30* 

Tape,  insulation,  electrical,  rubber 
Eraser,  soft  pink 

Eraser,  rubber,  fits  over  pencil  end 
Marker,  tube  tvpe,  fine  point,  black,  12/bx 
Marker,  tube  t.pe,  fine  point,  red,  12/bx 
Marker,  tube  t.pe,  fine  point,  green,  12/bx 
Marker,  tube  t.oe,  fine  point,  blue,  12/bx 
Folder,  file,  lightweight,  manila 
Handle 

Pencil,  spiral  wrap,  wax,  red 

Pencil,  spiral  wrap,  wax,  blue 

Pencil,  mechanical,  wax,  black 

Frame,  hand  hacksaw 

Blade,  hacksaw,  12",  24  tpi 

Handle,  bow 

Tester,  battery 

Tab,  index,  1/2",  clear 

Tab,  index,  1/2",  pink 

Tab,  index,  1/2",  red 

Tab,  index,  1/2",  green 

Tab,  index,  1/3",  blue 

Tab,  index,  1/3",  green 

Tab,  index,  1/3",  orange 

Tab,  index,  1/3",  pink 

Bolt  barrel,  brass,  2  1/2" 

Tape,  packag l ng /mask: ng ,  paper 

Fan,  electric,  4  3/4  x  4  3/4  x  1  5/8,  110v  AC 

Binder,  loos'1  leaf,  3  ring,  2"  cap.,  black 


Notebook 

7510-00-530-8881 

Binder,  loos'1  1 

eaf ,  3  ring, 

Nutdri ver 

r* 

in 

5120-00-595-2149 

Driver,  socket, 

5/32" 

Nu t dr i ver 

3/16 

5120-80-224-2599 

Driver,  socket, 

3/16" 

Nutdri ver 

°/32 

5120-00-277-1802 

Driver,  socket, 

9/32" 

Nutdri ver 

11/32 

5120-00-180-2951 

Driver,  socket. 

11/32" 

Nutdri ver 

3/9 

5120-00-596-1263 

Driver,  socket, 

3/8" 

Nutdri ver 

7/16 

5120-00-222-1499 

Driver,  socket. 

7/16" 

Figure  2 


M-t driver  1. 
Paper  clips 
Paper  tape 
Pencils 


5 1 20-33-293-0375 
7310-30-16 1-4292 
■'530-00-664-0107 
7510-00-201-5234 


Pencil  sharpener 7520-00- 1  62-6 1 79 
Plastic  bags ( 1 g ) 81 05-00-655-8286 
Plastic  bags (so) 8105-00-635-8295 
110-00-330-1757 


Pocketkm  f  e 
Paster  paper 
Printer  ribbon 
Refl.  tape  (gr) 
Refl.  tape  (or) 
RTV  (liquid) 

RTV  (liquid) 

RTV  (paste) 

RTV  (paste) 

RTV  i p  a  s  t  e ) 

RTV  (paste) 
Rubber  bands 
Pul  er 
Scissors 
Scotch  tape 

S  k  1  1  5  a  W 

Socket  set 
Solder  gun  tip 
Space  heater 
Stap 1 egun 
Staol es 

Strapping  tape 
Stepl adder 
Thumb  tacks 
Toil.  pap. 
Wastebasket 
Water  jug 
Ziplock  bag 


53 1 0-30-223-0368 
7510-00-082-2649 
9390-00-558-0216 
9390-00-359-0219 
3040-00-145-0075 
8040-00-833-9563 
9040-00-877-9872 
8040-00-902-3871 
3040-00-701-9546 
3040-00-828-7385 
7510-00-205-1439 
5210-00-826-8299 
5110-00-161-6909 
■'510-00-551-9823 
5130-00-899-3939 
5120-00-081-2305 
3439-30-540-8998 
4520-00-555-8696 
5120-00-889-1796 
7510-00-272-9662 
•'510-00-290-9035 
5"4  40-30-227  - 1593 


75 10-30-272-6886 
hold. 4510-00-364-3035 
7520-00-281-5911 
■'330-00-993-8550 
s  8105-00-337-7755 


Driver,  socket,  1/2“ 

Clip,  paper,  wire,  type  I,  gem  pattern,  100/b:; 
Tape,  t  el  et  ypewr  1 1  er  ,  yellow,  perforator 
Pencils,  lead,  type  IV,  #2  medium,  100/b:: 
Sharpener,  pencil,  type  II 
Sag,  plastic,  19  x  14  ;;  38,  1 2  5  /  b 
Bag,  plastic,  13  x  12  ::  25,  2 5 0 / b :< 

Knife,  pocket  ,cutting  blade  Si  oarlinspike 
Railroad  board.  2  2 :« 2  8 :: .  048,  150sh/bx 
Ribbon,  teletype  (will  work  on  IDS-440) 

Tape,  reflective,  green 
Tape,  reflective,  orange 
Adhesive,  RTV,  Type  II,  white,  3o; 

Adhesive,  RTV,  Type  II,  white,  So: 

Adhesive,  RTV,  Type  I,  white,  3o: 

Adhesive,  RTV,  Type  I,  red,  3o: 

Adhesive,  RTV,  Type  I,  clear,  5o: 

Adhesive,  RTV,  Type  I,  black,  12o: 

Rubber  bands,  1000/b;: 

Rule,  steel,  machinists,  6“ 

Shears,  straight  trimmers,  9" 

Tape,  P/S,  cellulose,  acetate,  3“  l.d.  roll 

Saw,  circular,  port.,  elec.,  8  1/4“  blade 

Socket  set,  1/4“  drive 

Tip,  elec,  soldering  gun,  small 

Heater,  electric 

Tacker,  heavy  duty,  type  II 

staples,  paper  fastening,  office  type,  S300/b:< 
Tape,  P/S,  filament  reinforced,  3/4" 

Step  ladder,  wood,  6ft 

Thumb  tacks,  solid  head,  100/b:< 

Holder,  toilet  oaper 

Basket,  waste  paper,  gray,  small 

Jug,  insulated,  5gal 

Bag,  interlocking  seal,  8" 3 "  :< .  004  ,  1000/b:: 


Figure  2  (cont’d) 
-  156  - 
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SYSTEM  OVERVIEW 


The  Tennant  Creek  Infrasonic  System  consists  of  three  major  parts: 
a)  the  sensor  elements  and  transmission  lines,  b)  the  demodul ati ng  and 
filtering  systea,  and  c)  the  digital  data  acquisition  and  analysis  system. 

The  first  of  these  is  the  Warramunga  Infrasonic  Array  operated  by  the  RSES, 
and  the  latter  two  were  built  and  supplied  by  the  Geophysical  Institute. 

A  two-dimensional  Daniels  Space  Filter  is  connected  to  one  side  of  the 
microphone  capsule.  There  is  a  backing  or  reference  volume  of  air  connected  to 
the  other  side.  An  air  pressure  difference  between  air  in  the  hose  and  that  in 
the  backing  volume  causes  the  diaphragm  to  move,  thus  changing  the  capacity  of 
the  microphone.  Normal  capacitance  is  about  100pf.  A  Hein  Bridge  Oscillator  is 
connected  to  the  microphone.  The  microphone's  capacitance  inversely  controls 
the  oscillator's  frequency.  The  output  of  the  oscillator  is  thus  a  frequency 
modulated  audio  tone.  A  higher  outside  air  pressure  than  in  the  backing 
volume  raises  the  frequency  above  its  normal  1500  Hertz.  A  slow  leak  is 
connected  across  the  microphone  diaphragm  to  compensate  for  changes  in  pressure 
of  longer  than  about  two  minutes.  The  direct  current  power  for  the  oscillator 
and  the  audio  output  are  connected  to  the  demodulating  system  via  overhead 
transmission  lines.  There  are  seven  sensors  in  the  system. 

In  the  main  building,  the  audio  tones  are  demodulated  and  filtered,  and 
the  data  recorded  and  analyzed.  The  demodulator  panels  were  built  by  the 
Geophysical  Institute.  The  audio  tone  is  demodulated  with  a  phase-locked  loop. 
The  result  is  a  signal  representing  the  movement  of  the  microphone  diaphragm. 

The  signal  is  filtered  using  active  filters  with  a  bandpass  of  7  to  70  seconds 
for  the  "N-7"  or  "F"  array,  or  a  bandpass  of  1  to  10  seconds  for  the  "N-6* 
or  ”T"  array.  The  signal  is  amplified  and  fed  to  the  anal og-to-di gi tal 
converter. 

The  digital  system  is  an  LSI-11  based  mi cr ocomputer  which  collects, 
analyzes  and  stores  the  data  as  received  from  the  demodulator.  The  system  is 
configured  to  operate  as  a  PDP-11  computer  built  bv  Digital  Equipment  Corp. 
(DEC),  with  peripherals  for  data  acquisition,  operator  communication,  a  clock, 
and  data  storage.  The  system  operates  using  software  developed  by  B.  David 
Spell,  and  is  intended  to  operate  continuously  without  operator  intervention. 

The  demodulated  signal  is  sampled  by  an  Anal og-to-Di g i tal  converter, 
model  DT2762,  built  by  Data  Translation.  The  software  routine  A2DRTG  handles 
operation  of  the  A/D  converter.  T  array  signals  are  sampled  at  4  Hz  and  F 
array  signals  at  1  Hz,  with  the  sampled  data  being  stored  in  a  buffer.  After 
12S  seconds,  the  buffer  is  written  onto  magnetic  tape,  and  the  129  second  data 
block  is  analyzed  by  the  various  software  routines  that  make  up  the  RTSAIW 
software  ensemble.  Data  acquisition  of  the  next  128  second  block  continues 
while  the  current  block  is  being  analyzed. 

Real-time  analysis  provides  data  statistics,  cross-co_relation,  azimuth 
and  velocity  of  signal  approach,  and  pure-state  filtering.  Data  statistics 
include  maximum,  minimum,  and  average  values,  root-mean-square  and  standard 
deviation  of  each  channel.  Cross-correl ati on  analysis  compares  to  laying  one 
signal  trace  on  top  of  another  and  sliding  it  back  and  forth  to  find  the  best 
fit.  Time  difference  between  the  two  channels  and  relative  correlation  (on  a 
scale  of  zero  to  one)  are  determined  for  the  best-fit  case  for  each  of  the  six 
station  pairs.  The  relative  value  of  cross-correl ati on  is  used  as  an  indication 


of  signal  presence  and  strength.  The  time  lag  information  is  used  to  find  the 
azimuth  of  approach  and  trace  velocity  of  the  signal.  The  data  is  then  filtered 
using  a  data-adapt 1 ve  filtering  technique  developed  by  Samson  and  Olson.  The 
above  analysis  routines  are  then  performed  on  the  filtered  data. 

Data  for  the  T  array  is  analyzed  first.  Data  for  the  F  array  is  added 
to  the  data  from  the  three  previous  blocks,  and  analyzed  as  a  512  second  time 
block.  Upon  completion  of  the  F  array  analysis,  the  first  128  seconds  of  data 
are  discarded,  and  the  remainder  is  saved  for  use  with  the  next  block. 

All  analysis  results  are  communicated  to  the  video  terminal  and  parallel 
printer,  and  are  also  written  into  the  trailer  of  the  next  data  block  on  the 
magnetic  tape.  Because  of  the  time  required  for  analysis,  the  trailer  data 
applies  to  the  raw  data  stored  one  block  earlier  on  the  tape. 


SYSTEM  BLOCK  DIAGRAM 


AOM-5 
Tenm  nal 


DSD-4:3 
Disk  Drive 


Kennedy  9030 
Tape  Drive 


SYSTEM  SPECIFICATIONS 


Sensors 

Transducer  can 
Microphone  diaphragm 
noeinal  capacitance 
Oscillator 

recommended  current 


Model  N4 
Model  N2 
100pf 
Model  N2 
19mA 


Sensor  stations 


»0 

site 

1 

x  =0.0 

y  =  0.0 

•  1 

site 

2 

-1432.0 

-2520.0 

»2 

site 

3 

-3897.0 

-1098.0 

#3 

site 

4 

-2460.0 

1372.0 

»4 

site 

1 

0.0 

0.0 

*5 

site 

6 

363.0 

407.0 

46 

site 

7 

-700.0 

678.0 

#7 

site 

5 

-1970.0 

-524.0 

Discriminators 

Audio  tone  frequency 

Full  scale  deviation  (13  dynes) 
N-7  bandpass  (channels  0,1,2  St  3) 
N-6  bandpass  (channels  4,5,6  St  7) 
Chart  recorder  output 


1.15-1.65  KHz 
+  /-  10Hz 
7-70  seconds 
1-10  seconds 
+7-  0.5mA  into  5.6K 


Digital  System 

Mainframe 

LSI-U/2  processor 
32K  x  16  MOS  memory 
4-channel  serial  line  unit 
4-Hz  conversion  trigger 
A/D  Con ver ter 
Sampling  rate 
Tape  drive  controller 
Real-time  clock 
Disk  drive  controller 
Diagnostic  bootstrap  terminator 
Data  storage 

Storage  medium 

Disk  drive  (for  program  development) 

Terminal 

Printer 

serial  interface 

Power  consumption  (entire  system) 
Environment 

Nominal  temperature 
Nominal  humidity 


Digital  PDP-11/03 
KDU.KEVU  M7270 

MSV11-DD  M8044-DB 

DLV11-J  M8043 

(31  built)  W94 1 

Data  Translation  DT2762 
1H:  for  N-7,  4Hz  for  N-6 
Dilog  DQ120 

Digital  Pathways  TCU-50  DVR 
DSD  4140 

BDV11  M3012 

Kennedy  9000  tape  drive 
18"  reel  magnetic  tape 
DSD  430,  RX02  equivalent 
Lear-Siegler  ADM-5 
Epson  MX-801 1 1 
Comrex  Sold  Eagle 
2.5  Kilowatts 
Clean-room  reccommended 
62F  deg  (18C  deg) 

40-45%,  non-condensing 


egend  for  Rev  19  and  greater  listings 


n.b.  Sigma  is  standard  deviation,  Psi  is  RMS  (root-aean-square) , 

Mu  is  average,  Rho  is  cross-correl ation  coefficient,  az  is  azimuth 
of  approach,  and  vel  is  trace  velocity.  I  prefix  means  Integer  (1*2) 
and  all  others  are  real  (R*4).  Date  and  time  are  in  a  fore  described 
in  the  literature. 


1  Iblock  nr  /  Ihard  errors  /  Iskew  errors  /  loverrange  /  Iunderrange 

2  station  code  /  date  /  tine 

3  Iblock  nr  /  0  /  az  sigma  /  vel  sigma  <  (last  bk  of  interest)  /  az  /  vel 

4  Time  delays:  4-5  /  4-6  /  4-7  /  5-6  /  5-7  /  6-7  /  average  Rho 

5  individual  Rho's:  4-5  /  4-6  /  4-7  /  5-6  /  5-7  /  6-7 

6  ch  4:  Imax  /  Imin  /  Mu  /  Sigma  /  Psi 

7  ch  5:  same  as  line  6 

9  ch  6:  same  as  line  6 

9  ch  7:  same  as  line  6 

10  Iblock  nr  /  spectral  peak  /  same  as  line  3  (after  filtering) 

11  same  as  line  4  (after  filtering) 

12 

13  Iblock  range  I  same  as  line  3 

14  Time  delays:  0-1  /  0-2  /  0-3  /  1-2  /  1-3  /  2-3  /  average  Rho 

15  individual  Rho's:  0-1  /  0-2  /  0-3  /  1-2  /  1-3  /  2-3 

16  ch  0:  same  as  line  6 

17  ch  1:  same  as  line  6 

18  ch  2:  same  as  line  6 

19  ch  3:  same  as  line  6 

20  Iblock  range  /  same  as  line  10 

21  same  as  line  14  (after  filtering) 


Lines  1  and  2  are  general 
Lines  3  through  11  are  T  array 
Lines  13  through  21  are  F  array 

Lines  3,  10,  13,  or  20  will  not  print  if  .elocity  is  ,ut  of  range 


GENERAL.  OPERATING  PROCEDURES 


CALIBRATION:  Calibration  racers  to  the  ad justment  of  the  amplifier  section 

of  the  discriminator  card,  and  the  determination  of  the  number  of  diqital 
"counts*  recorded  per  microbar  of  pressure  change.  Preferably,  this  should  be 
done  annually.  First,  disconnect  the  EA  recorder  from  any  input  and  check 
the  mechanical  zero.  This  is  accomplished  by  moving  the  needle  at  the 
bottom  of  the  recorder.  When  the  recorder  is  reconnected,  set  the  knob 
to  the  right  of  the  di scri minator  cards  to  “Zero  Set,"  and  the  toggle 
switch  on  the  di scriainator  card  to  the  "down*  (LP  zero)  position.  Now,  adjust 
the  trimpot  just  above  the  toggle  switch  to  electrically  zero  the  recorder. 
Return  the  toggle  switch  to  the  up  position.  Now  adjust  the  HP  zero  using 
the  two  trimpots  just  below  the  toggle  switch.  The  one  on  the  left  is  the 
coarse  adjustment,  and  the  one  on  the  right  is  the  fine  adjustment.  Now  return 
the  knob  at  the  right  to  the  "Operate"  position. 

When  you  have  finished  with  the  zero  adjustments  for  all  of  the  channels, 
you  are  ready  to  begin  the  calibration  process.  Open  the  back  panel  of  the 
card  cage  and  desolder  the  EA  equivalent  load  resistance  from  the  output 
banana  plugs  before  connecting  the  EA  recorder.  Turn  on  the  calibrator  and 
wait  at  least  two  minutes  after  the  motor  starts  for  all  transients  to  settle 
before  continuing.  The  calibration  adjustment  is  made  using  the  top  trimpot. 

A  clockwise  turn  will  increase  the  amplitude.  The  peak  to  peak  measurement 
of  the  calibration  signal  as  recorded  by  the  EA  stripchart  recorder  should  be 
ten  centimeters.  Se  sure  to  let  transients  settle  after  each  adjustment. 

When  you  are  satisfied,  let  the  calibration  signal  run  for  50  minutes  (IS 
minutes  for  N-6  channels)  to  allow  the  digital  system  calibration  information 
to  be  recorded.  Turn  off  the  calibrator  motor  and  wait  another  13  minutes 
before  returning  the  calibrator  valve  to  the  operate  position.  Disconnect  the 
EA  recorder  and  replace  its  equivalent  resistance. 

Record  the  following  information  in  the  log:  the  time  that  the  valve 
is  closed,  the  time  that  the  pump  is  started,  the  time  that  the  calibration 
signal  has  been  adjusted  sa t i sf ac tor 1 1 y ,  the  frequency  swing  and  the  magtape 
block  numbers  during  the  30min  (or  15m in)  digital  calibration  check,  the  time 
that  the  pump  is  stopped,  the  frequency  and  the  magtape  block  numbers  during 
the  quiet  test,  and  the  time  that  the  valve  is  reopened. 


DIGITAL  SYSTEM:  The  main  data  collection/analysis  is  performed  by  the 
PDP-11  computer.  It  is  of  the  utmost  importance  that  data  logging  by  this 
system  continue  uninterrupted.  The  operator  should  constantly  keep  a  watch 
on  the  operation  of  this  system. 

The  system  will  operate  without  operator  intervention  once  it  has  been 
started  with  the  exception  of  the  tape  change  (approx,  every  five  days). 

To  initiate  a  tape  change,  the  operator  should  enter  a  "SHIFT  R"  on  the 
terminal.  When  the  system  completes  the  analysis  of  the  current  data  block, 
it  will  write  two  end-of-f i les,  rewind  the  tape,  and  issue  the  message 
“PAUSE--Mount  tape."  When  the  tape  has  been  removed  from  the  tape  drive, 
the  heads  should  be  cleaned  and  a  new  tape  mounted.  Enter  "RETURN"  on  the 
terminal  and  answer  the  program  start  questions.  Samples  are  given  below 
of  the  program  start-up  dialogue.  Data  collection  and  analysis  should 
now  continue  without  further  intervention.  Be  sure  to  remove  the  write-ring 
from  the  old  tape.  Also  be  sure  that  the  old  tape  is  marked  with  the  tape 
number ,  station  name,  program  revision  number,  start  time,  stop  time,  number 
of  blocks,  and  number  of  end-af -f i 1 es.  Tapes  should  be  numbered  according 
to  the  scheme  "MTyy-xx"  where  yy  is  the  year  and  xx  is  the  tape  number. 

The  nature  of  the  digital  data  acquisition  system  is  such  that  starting 
the  system  is  fairly  complex.  The  program  information  is  loaded  from 
magnetic  tape  in  order  to  increase  the  available  memory  space.  The  system 
is  brought  to  life  through  the  use  of  four  bootstraps,  each  building  from  the 
point  where  the  previous  one  left  off.  The  first  of  these  is  entered  into  the 
computer  by  the  operator,  and  consists  of  16  six-digit  integers.  The  execution 
of  this  first  bootstrap  will  cause  the  succeeding  bootstraps  to  be  read  from 
the  magnetic  tape  and  executed.  Finally,  the  current  revision  of  the  TCK8CH 
program  will  be  loaded  into  the  computer,  and  program  execution  will  begin  by 
rewinding  the  program  tape,  and  issuing  the  message  "PAUSE--Mount  tape." 

This  procedure  is  described  in  more  detail  in  the  TCK3CH  section  of  the 
“TCKSCH  System  Manual"  notebook. 

Sample  startup  dialogue  with  no  changes: 

TCK3CH  Rev  22. 

Tape  unit  is  ON  LINE  and  tape  is  at  SOT' 

Tape  unit  is  ready' 

Tape  is  NOT  write  protected  (ring  is  m)-do  you  want  to  rei ni ti al i ze7  <Y  or  N> 
Do  you  want  an  immediate  EOF  < *nd-of-f i l e)  to  precede  the  data?  <Y  or  N;  N 
Year7  94 

Time:  21-JAN-G4  13:41  13"Z77  Y 
Changes7  N 

Sample  startup  dialogue  with  incorrect  time  and  channel  6  inoperative: 

TCK8CH  Rev  22. 

Tap#  unit  is  ON  LINE  and  taoe  is  at  3QT' 

Tap#  unit  is  ready' 

Tape  is  NOT  write  protected  (ring  .s  n  -do  you  want  to  reinitialize7  • Y  or  N> 
Do  you  want  an  immediate  EOF  < end -of -f i l e >  to  precede  the  data7  <Y  or  N)  N 

Year7  84 

Time:  19-JAN-84  13:24  37"Z77  N 
Correct  time7  ( Y , M , D , H , M )  34,1,21,18,41 
Time:  2 1 -JAN-34  13:41  0"Z77  Y 

Changes7  Y 
F , T  or  B7  8 
F  array:  3  or  4 7  4 
T  array:  3  or  47  3 

Missing  channel  <4, 5, 6, 7  <or  3  if  none)>:  6 

A2D  channels  (missing  channel  in  4th  position):  3 , 1 , 2 , 3, 4 , 5 , 7 , 6 
0  1  2  3  4  5  7  6 


HARD  COPY:  The  Epson  RX-80  printer  is  used  to  make  hard  copy 
of  the  TCK8CH  output.  This  serves  as  a  backup  since  all  of  the  information 
is  also  stored  on  the  data  tapes,  but  is  necessary  in  case  of  tape-drive 
failure.  The  systee  will  go  through  a  case  of  paper  in  about  three  weeks. 
The  printer  should  be  checked  at  least  daily  to  insure  proper  operation, 
and  that  output  paper  is  stacking  properly.  Improper  stacking  of  the  output 
paper  can  cause  the  input  paper  to  be  jammed,  which  can  result  in  damage  to 
the  printer.  The  printer  ribbon  should  be  changed  after  every  2  or  3  weeks, 
and  the  print  head  cleaned  monthly. 


DEMODULATORS 


There  is  one  card  cage  far  the  demodulator  cards.  The  right  half 
holds  the  N-6  array  cards,  and  the  left  half  holds  the  N-7  cards.  The 
following  pages  include  a  description,  a  schematic,  photos,  additional  notes 
and  schematics.  There  are  spare  cards  for  each  array. 

The  signal  input  for  each  channel  is  a  1.5KH:  tone  from  the  microphone 
oscillator.  A  phase-locked  loop  is  used  to  demodulate  this  FM  tone.  The 
demodulated  signal  is  then  filtered  to  remove  components  outside  of  the 
desired  passband  in  a  two  stage  active  filter.  This  filter  is  designed  to 
be  flat  within  1.5dB  for  periods  of  10  to  67  seconds  (N-7  array)  or  1  to  10 
seconds  (N-6  array)  when  calibrated  for  full  scale  with  a  15  second  (N-7)  or 
5  second  (N-6)  period  signal.  The  filter  output  will  drive  a  standard  E.A. 
strip  chart  recorder.  A  second  output  is  provided  to  drive  the  electronics 
of  the  slow-speed  analogue  tape  recorder.  The  inputs  and  outputs  of  the 
card  cage  are  through  the  banana  plugs  on  the  back  of  the  unit. 

When  in  normal  operation,  the  toggle  switch  on  each  card  should  be  in  the 
up  (run)  position.  The  right  panel  knob  should  be  in  the  "Operate"  position 
The  "Zero  Set"  position  of  the  right  panel  knob  disconnects  the  filters 
from  the  input  signals,  allowing  the  output  to  settle  to  the  zero  position. 

Zero  adjustments  should  be  checked  annually  (just  prior  to  calibration). 
There  are  three  steps  in  the  adjustment  process:  mechanical  zero,  low-pass 
zero,  and  high-pass  zero.  During  these  steps  the  right  panel  knob  must  be 
left  in  the  Input  Grounded  position.  First,  unplug  the  E.A.  recorders  from 
the  equipment  and  check  the  mechanical  zero.  This  can  be  adjusted  by  moving 
the  needle  at  the  bottom  of  the  recorder  unit.  Second,  plug  the  recorders 
back  in  and  turn  the  toggle  switches  on  the  cards  to  the  down  (zero  check) 
position.  This  puts  a  zero  into  the  low  pass  filters.  Now  adjust  the  trimpot 
immediately  above  the  toggle  switch  to  center  the  pens  (clockwise  moves  the 
pens  in  a  positive  direction).  Third,  return  the  toggle  switches  to  the  up 
(run)  position  and,  if  needed,  adjust  the  high  pass  filters  with  the  trimpots 
immediately  below  the  switch.  The  trimpot  on  the  left  is  the  coarse  adjustment 
and  the  one  on  the  right  is  the  fine  adjustment  clockwise  moves  the  pens  in  a 
negative  direction).  Now  return  the  right  panel  knob  to  the  Operate  position. 

The  equipment  will  give  a  full  scale  output  0.5ma  into  a  1.5K  load) 

with  a  standard  +  /-  10Hz  FM  modulation  of  the  1.5KH:  tone  at  a  15  second  (N-7) 
or  5  second  (N-6)  period.  This  is  the  standard  signal  provided  by  the  10  dyne 
microphone  calibrator  bellows.  For  calibration,  the  bellows  is  hooked  to 
the  field  microphone  and  left  to  run  for  several  minutes.  The  top  trimpot  cn 
the  discriminator  card  is  then  adjusted  to  give  a  10cm  peak  to  peak  output. 
Calibration  signals  up  to  */-  507.  of  standard  can  oe  adjusted  to  full  scale 
with  this  control.  If  the  signal  is  outside  of  this  range,  the  field  unit 
should  be  serviced  to  bring  it  up  to  standard.  The  frequency  of  the  1.5kHz 
tone  is  not  critical  and  may  be  anywhere  between  1.15kHz  and  1.65kHz.  Varying 
temperatures  in  the  field  will  cause  the  center  frequency  to  change. 

Any  failure  common  to  all  of  the  four  channels  in  a  cage  shows  a  problem 
with  the  24v  power  supply.  This  is  a  plug-in  unit,  and  may  be  replaced  with 
one  of  the  spares.  A  failure  of  one  channel  shows  a  problem  with  the  card 
that  channel.  This  can  be  serviced  by  replacement  with  one  of  the  spare  cards. 
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ADDITIONAL  INFORMATION 


Luted  below  is  an  inventory  of  the  additional  literature  on  site  that 
has  been  supplied  by  the  Geophysical  Institute  for  this  system. 

Digital  Equipment  Corporation  Hardware: 

Systems  Service  Manuals  (2  volumes) 

PDP-l 1/03-L  Field  Prints 

DL'/ll-J  Field  Prints 

11V03-L  Field  Prints 

MSV11-D  User's  Manual 

BA11-N  Mounting  Box  User's  Manual 

Other  Hardware: 

Dilog  0 Q 1 20  Tape  Controller  Instruction  Manual 

Dilog  DQ120  Tape  Controller  Software  Aids  Si  Diagnostics 

Data  Translation  D T 2 7 6 2  A/D  Converter  User  Manual 

Digital  Pathways  TCU-50  DYR  Timing  Control  Unit  User's  Manual 

Data  Systems  Design  DSD-430  Disk  Drive  Si  Controller  Manual 

Epson  MX-80  Printer  Manual 

Comrex  Gold  Eagle  Serial  Interface  (for  printer)  User  Manual 
Lear  Siegler  ADM-5  Terminal  User's  Reference  Manual 

RT-11  Operating  System  (version  4  manuals): 

Installation  Manual 
Intro  to  RT-11 

System  User's  Guide  (2  volumes) 

System  Message  Manual 
Programmer's  Reference  Manual 
Software  Support  Manual 
RT-11  Pocket  Guide 

Windless  Bight,  Antarctica  Infrasonic  Array  Documentation: 

Infrasonics  Owner's  Manual 
Infrasonics  Software 

Software  (on  flexible  diskettes): 

Tea.  RT-11  (version  3)  Operating  System 
Cea.  Offline  Analysis  Programs 
2ea.  Data  Retrieval  Programs 

2ea.  TCK3CH  Revision  22  Software  (November  1983) 
lea.  TCK8CH  Revision  21  Software  (July  1933) 

3ea.  Blank  diskettes 

Software  (on  magnetic  tapes): 

2ea.  TCK3CH  Revision  22  (executable)  Data  Acquisition  Program 


TCK8CH 


This  is  the  mainline  data  collection  program,  developed  by  Dave  Spell.  The 
development  process  is  described  in  Digital  Acquisition  and  Analysis  System 
for  Antarctica  (GI RS2-3)  and  Digital  Data  Acquisition  and  Analysis  (Dave's 
thesis).  This  program  is  designed  to  run  without  an  operating  system,  and 
must,  therefore,  be  linked,  loaded,  and  bootstrapped  in  a  different  manner 
from  the  programs  normally  run  under  RT-11.  The  procedure  for  linking  the 
program  and  creating  a  program  load  tape  may  be  found  immediately  following 
the  program  listing.  This  program,  as  well  as  the  source  files  for  all  of 
the  subroutines  in  TCKLI3  and  flACLIB  may  be  found  on  disks  labeled  TCK9CH  Rev 

The  procedure  for  bootstrapping  the  TCkSCH  system  is  as  iollows: 

1' Mount  the  program  tape. 

2) Restart  the  computer.  The  computer  will  respond  with: 

23 

Start'1 

3) Reply:  n 

The  computer  will  respond  with:  8 

4) Enter:  1200/ 

The  computer  will  respond  with  the  contents  of  that  memory  location 

5 )  Enter  the  following,  terminating  each  line  with  a  line  feed. 

12700 
172524 
5310 
12740 
6001  1 
105710 
100376 
5710 
130767 
12710 
60003 
135713 
130376 
5713 
100777 
5007 

After  each  line  feed,  the  computer  will  respond  with  the  next  addre 

and  its  contents. 

6>Enter:  1300S 

The  computer  should  read  the  program  tape  and  respond  with: 

PAUSE  --  MOUNT  NEW  TAPE 

The  TCKSCH  program  is  now  loaded,  and  ready  to  operate. 
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TCKG 


c 

C  Date  o-f  this  revision:  19-Nov-83 

C 

PROGRAM  TCK8CH 
C 

C  COMMQN/arr ay/DATA  area 

C 

COMMON  /MTBLK/  I DNSTY  ,  I P ARTY , I  ST ATU ( 1 2 > 

COMMON  / IARRAY/  IA2DBK (2730) , IBKRDY, ICHNL (8) 

COMMON  /PASBLK/  I WKHDR ( 20 )  ,  IFCHNL ( 5 1 2 , 4 ) , I TCHNL ( 5 1 2 , 4 ) 

COMMON  /APARAM/  FXDIF (6) ,FYDIF (6) , FTD I F (6)  .FSIGMA  (4)  ,  T X D I F  (6)  , 
(TYDIF  (6) , TTDIF (6) , T5 1 GMA ( 4 ) 

COMMON  /ANALYS/  FFSPQX , FRHOVB , F VELQC , F A Z I MF , F VEV AR , F A2 V AR , I FST AT , 
CFMU  (4) ,FPSI (4) ,FRHO (6) , IFMAX (4) , IFMIN (4)  ,  FTSPQX  ,  TRHO VG  ,  TVELOC , 
CTAZIMF, TVEVAR, TAZVAR, ITSTAT, TMU (4)  ,  TPS  I  (4)  ,TRH0(6) , ITMAX(4> , 

{ I TM IN ( 4 ) 

DIMENSION  JTAIL (98) , ITAILI 150) 

EQUIVALENCE  (FFSPQX , JTAIL  1 1 ) > , ( I TA I L ( 1 ) , I A2DBK ( 258 1 ) ) 

COMMON  /MIS C/  ITMPRY(1536) , IFCNBR, ITCNBR, ISTAT, ITRGRY ( 129) , 
(CALLER , INRDIF, I NRCHL , I TRM A  X , I T WE AX , F I  MGR Y  (  255 , 4 )  , 

( I XFLGF ( 6 ) , IXFLGT16) ,FDIFA(6) ,TDIFA(6) 

C 

DATA  I CHNL/3, 1,2,3,4,5,6,77, 1  TWEAK/ 1/, ARRNBR/1HB/ 

DATA  INBUFF/ "  177562/, I  MASK/' 177/, I ADCSR/"  177000/ 

DATA  IGETDT/-1/, II NTDT/0/, FOUR/ 1HF/, THREE/ 1HT/, BOTH/ 1HB/ 

DATA  XNO/1HN/, YES/1HY/ , I  NO/ - 1 / , I  YES / 1  , P IQVRN/ . 0 1  227 1 9/ 

DATA  IRSTRT / 1HR/ ,  ITWEAK/  1  / 

DATA  I  UN  IT/00/ ,  I  DNSTY 7  800/  ,  I  PARTY /l . 


Program  and  aag  tape  initialization  area. 


m 


i 


3016 

999 

p 

CALL  REWTAPdUNIT,  ISTATU) 

0017 

L 

998 

PAUSE  '  MOUNT  tape'  1  ' 

0018 

r 

TYPE  10 

0019 

132 

CALL  MTINIT ( IUNIT) 

0020 

IF  ( I  STATU  < 1 )  .NE.  I  YES )  STOP 

0022 

CALLER  =  BOTH 

0023 

p 

CALL  CHLMIX (B> 

0024 

DO  105,1  =  1,150 

0025 

105 

p 

ITAIL(I)  =  0 

0026 

w 

DO  110,1  =  1,1536 

0027 

110 

p 

ITMPRY  ( I )  =0 

3023 

w 

RINDX  =  0. 

3029 

DO  119,1  *  1,129 

3038 

THETAN  =  COS(PIOVRN*RINDX) 

3031 

I TRGRY  <  I )  =  IFIX (32767. *THETAN 

0032 

I  19 

RINDX  =  RINDX  *  1. 
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TCKE 


0033 

109 

TYPE  193 

9034 

ACCEPT  14 , J YEAR 

0035 

112 

JFLA6  =  IGETOT 

0036 

CALL  TCKCLK  ( JFLAG , AMQNTH , JDAY , JHOUR , JMI N , JSEC ) 

0037 

108 

TYPE  194, JDAY, AMQNTH, J YEAR, JHOUR, JHIN, JSEC 

0033 

ACCEPT  12, ANSWER 

0039 

IF  (ANSWER  .NE.  XNO)  GO  TO  107 

0041 

TYPE  195 

0042 

ACCEPT  196, JYEAR, JFLAG, JDAY , JHOUR , JMIN 

0043 

CALL  TCKCLK  ( JFLAG , AMQNTH , JDAY , JHOUR , JMIN , JSEC) 

0044 

GO  TO  112 

0045 

U 

107 

TYPE  19 

0046 

ACCEPT  12, ANSWER 

0047 

IF  (ANSWER  .NE.  YES)  GO  TO  300 

0049 

L 

TYPE  13 

0050 

ACCEPT  1 2 , ARRNBR 

0051 

IF  (ARRNBR  .EQ.  THREE)  GO  TO  103 

0053 

C 

TYPE  15, FOUR 

0054 

ACCEPT  1 4 , IFCNBR 

0055 

IF  (IFCNBR  . EG.  4)  GO  TO  104 

0057 

114 

TYPE  13 

0053 

ACCEPT  14, IFCHLM 

0059 

CALLER  *  FOUR 

0060 

CALL  CHLMIX ( IFCHLM) 

0061 

104 

IF  ( ARRN8R  .EQ.  FOUR)  GO  TO  101 

9063 

L 

133 

TYPE  15, THREE 

0064 

ACCEPT  1 4 , I TCNBR 

0065 

IF  ( I TCNBR  .EQ.  4)  GO  TO  101 

0067 

113 

TYPE  131 

3063 

ACCEPT  1 4 , ITCHLM 

0069 

CALLER  =  THREE 

3070 

CALL  CHLMIX ( ITCHLM) 

0071 

101 

TYPE  16 

0072 

ACCEPT  196,  ICHNL 

0073 

TYPE  196, ICHNL 

0074 

P 

GO  TO  107 

w  •  a  •  • 

c 

c 

p 

Main  progran 

0075 

L 

300 

I8KRDY  *  INO 

0076 

IA2DBK  (2)  *  0 

0077 

CALL  A2DTCK ( I A2DBK , IBKRDY , ISTATU , ICHNL ) 

0073 

L 

303 

IPROBE  *  IPEEK ( INBUFF) 

0079 

I PROBE  =  (IPROBE  .AND.  IMASK) 

0080 

IPROBE  =  IPROBE  *  3192 

0081 

IF  <  IPROBE  .EQ.  IRSTRT)  50  TO  306 
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0093 

p 

IF  ( IBKRDY  .NE.  IYE5)  GO  TO  303 

w 

c 

p 

A  data  block  is  filled! 

009S 

CALL  UNWIND  ( I A2DBK , IWKHDR , ITHPRY ) 

0086 

CALL  INIA2D 

0087 

p 

GO  TO  600 

0088 

306 

CALL  IPOKE ( IADCSR , 0) 

0089 

DO  307,1  =  1,2 

0090 

CALL  EQFTAP ( I UNIT, I STATU) 

0091 

IF  ( ISTATU ( 1 )  .EQ.  INO)  CALL  MTSTAT ( 

0093 

307 

CONTINUE 

0094 

r . 

GO  TO  999 

c 

c 

c 

Analysis  area 

0095 

c 

600 

IIBKNR  =  IWKHDR (2) 

0096 

JNONDA  =  IWKHDR (3) 

0097 

JHRMIN  =  IWKHDR ( 4) 

0090 

JSEC  *  IWKHDR (5) 

0099 

IERRTO  =  IWKHDR  117) 

0100 

ISKWER  =  IWKHDR (18) 

0101 

IOVRNG  =  IWKHDR ( 1 9  > 

0102 

r 

IUNDRN  =  IWKHDR (20) 

0103 

L 

JFLAG  =  IINTDT 

9104 

JDAY  =  JMONDA 

0105 

JHOUR  =  JHRMIN 

0106 

CALL  TCKCLK  ( JFLAG, AMONTH , JDAY , JHOUR 

0107 

TYPE  197, II 8KNR, IERRTO, ISKWER, IOVRNG 

0108 

r 

TYPE  1 99,  JDAY, AMONTH, J YEAR, JHOUR, JM I : 

0109 

IF  ( ARRN8R  .EQ.  FOUR)  GO  TO  603 

0111 

FT3PQX  =  0. 

0112 

CALLER  =  THREE 

0113 

CALL  TCKTOA 

0114 

DO  603,1  =  54,93 

0115 

608 

P 

ITAIL  (4*1  >  *  JTAIL(I) 

9116 

u 

IF  (ITSTAT  .LT.  0)  GQ  TO  605 

0118 

CALL  FILTER 

0119 

IF  (FTSPQX  .GT.  0.)  30  TO  606 

0121 

TYPE  192, CALLER 

0122 

p 

GO  TO  605 

0123 

L 

696 

CALL  TCKTDA 

0124 

DO  607,1  *  50,61 

0125 

697 

C 

ITAIL  <53M  )  =  J  T  A I L  !  I ) 

0126 

60S 

IF  ! ARRN8R  .EQ.  THREE)  30  TO  s09 

* 
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0123 

U  .  •  •  • 

c 

603 

TYPE  191 

0129 

FFSPQI  »  0. 

0131 

CALLER  *  FOUR 

0131 

CALL  TCKTDA 

0132 

00  604,1  a  1,45 

0133 

604 

r 

I TAIL  ( I )  *  JTAIL ( 4*1 ) 

0134 

L 

IF  ( IFSTAT  .LT.  0)  GO  TO  609 

0136 

CALL  FILTER 

0137 

IF  (FFSPQX  .GT.  0.)  GO  TO  602 

0139 

TYPE  192, CALLER 

0140 

p 

GO  TO  609 

0141 

L 

602 

CALL  TCKTDA 

0142 

00  601,1  >  1,12 

0143 

601 

f 

ITA IL ( 43*1 )  =  JTAIL ( I > 

0144 

L 

609 

IF  ( I STATU  ( 1 )  ,  EQ.  I NO)  CALL  MTSTAT  ( IUNI T) 

0146 

IBKRDY  *  INO 

0147 

C  -  - 

GO  TO  303 

r 

C 

C 

FORNATs  area 

0149 

c 

10 

FORMAT  (/, '  TCK9CH  Rev  22.  ',$) 

0149 

12 

FORMAT  (AD 

3130 

13 

FORMAT  <  •  F,T  or  0->  1) 

0151 

14 

FORMAT  (312) 

3152 

15 

FORMAT  ('  , A 1 ,  arra/:  3  or  47  ',!) 

0133 

16 

FORMAT  (’  A2D  channels  (missing  channel  in  4th  position):  ,4) 

3154 

19 

FORMAT  ('  Missing  channel  3, 1,2, 3  (or  9  it  none)): 

',4) 

0133 

191 

FOPMAT  ('  Missing  channel  4, 5, 6, 7  'or  8  it  none)): 

3156 

19 

CGRMAT  ! '  Changes7 ', 4) 

3 1 57 

;«i 

FORMAT  ' 1  ,1) 

0139 

192 

FORMAT  (  '  ,Al,3X,  ♦♦♦INVALID  FILTER1 1 ♦♦*' ,4) 

3159 

193 

-OPMAT  C  Year"  ' ,$) 

0  1  S0 

194 

FORMAT  C  Time:  ’  ,13, ,A3, ,12,14,  :  •  ,12,  '  ,12, 

Z77  ',4) 

0161 

193 

FORMAT  ('  Correct  time"  !Y,R,D,H,H)  ,4) 

0162 

196 

FORMAT  (913) 

0163 

197 

FORMAT  </,  »  ,516,4) 

0164 

198 

FORMAT  (  0TCK  ’  , 13, ,A3, ' , 12, 14, • :  • ,12, ’  ,12, 

“Z. • ,4) 

0163 

199 

C.  .  .  . 

FORMAT  C  , A 1 , 6F7 . 1 ,  Correct7  :',4> 

This  is  the  procedure  for  revising  the  TCK8CH  program  and  creating  a  load  tape. 


To  revise  a  FORTRAN  subroutine: 

•EDIT  filenaae.FOR 

<edit  the  source  file  as  necessary) 

.FORTRAN  filenaae 

.LIBRARY  TCKLIB  f i 1 enaee/REPLACE 


To  revise  a  MACRO  subroutine: 

.EDIT  filenaae. MAC 

<edit  the  source  file  as  necessary) 

.MACRO  filenaae 

.LIBRARY  MACLIB  f i 1 enaae/REPLACE 


To  revise  main  praqraa: 

.EDIT  TCK8CH. FOR 

<edit  the  source  file  as  necessary) 
.FORTRAN  TCK8CH 


Then  carry  out  the  following  steps  for  any  revision: 

.R  LINK 

*TCK3CH,TCK8CH=TCK8CH, TCKLIB, MACLIB/F/L/I 
Library  search?  ISIMRT 
Library  search?  <CR> 

*  < CTRL  C> 

Mount  the  program  tape  (with  a  write  enable  ring  inserted) 
. INIT/FILE:SY:MBOQT.BOT  MT0: 

NT0: / In  1 1  Ire  y«u  sure?Y 
.R  PIP 

*MT0: *. **SY: M80QTP. PRI,M300TS.SEC 
*MT0: *. *»TCK8CH. LDA 

*  <CTRL  C) 


ITVQ  020316  TVPS 

020324 

STVP 

320524 

TV  1 1  320332  IT VI 

020332 

4WAIT 

020466 

4VRINT  020530  IDUMPL 

020532 

0T5SP 

222669 

000050 

( RW , D, SSL , REL , OVR) 

SYS*  I 

020730 

000020 

(RU, I , LCL , REL , CON ) 
IPEEK  020730  IPQKE 

020740 

USERS  I 

020750 

000000 

(RM, I , LCL, REL, CON) 

f  CODE 

020750 

030142 

(RW , I , LCL , REL , CON) 
IIQTSC  020750  MTINIT 

025312 

MTSTAT 

027240 

CHLNIX  030260  FILTER 

031630 

TCKTDA 

033760 

BEHEST  041524  PURFIL 

045364 

SMOOTH 

050334 

OTSSO 

051112 

001040 

(RW, I , LCL, REL, CON) 
4I0TS0  051112  IGPEN 

051112 

SYSIO 

052152 

000000 

(RW, I, LCL, REL, CON) 

IDATAP 

052152 

004172 

( RW , D , LCL , REL , CON  > 

OTSID 

056344 

000006 

( RW , D , LCL , REL , CON ) 

OTSIS 

056352 

300304 

(RW , D , LCL , REL , CON) 
IAOTS  056352 

SYSIS 

056656 

000004 

( RW , D , LCL , REL , CON) 
ISYSLB  056656  SLOCK 

056660 

SCRASH 

056661 

SDATA 

056662 

001516 

( RW , D , LCL , REL , CON ) 

USERID 

060400 

000000 

( RW  ,  D , LCL , REL , CON ) 

.1111. 

060400 

000000 

(RW,D,GBL,REL,QVR) 

MT8LK 

060400 

000034 

(RW,D,38L,R£L,QVR) 

I  ARRAY 

060424 

012546 

(RW,D,GBL,REL,OVR) 

PASBLK 

073202 

020050 

(RW,D, SBL,REL,QVR) 

APARAM 

113252 

030260 

( RW , D , GBL , REL , OVR) 

ANALYS 

113532 

000304 

(RW,D,GBL,REL,QVR) 

MISC 

114036 

016534 

(RW, D , SBL , REL , OVR ) 

WRKSPC 

132572 

010000. 

( RW , 0 , SBL , REL , DVR ) 

142572 

000210 

(RW, I, LCL, REL, CON) 
IGETRE  142572  ITTYIN 

142646 

TAPEIO 

143002 

032622 

(RW, I , SBL, REL, OVR) 

I N I  TAP  1431  76  STATAP 

143476 

SPCTAP 

144116 

REWTAP  144316  EOFTAP 
REDTAP  145176 

144456 

WRITAP 

144626 

FFT512 

145624 

001334 

(RW, I, SBL, REL, CON) 
FFT512  145672 

HAXMIN 

147160 

030074 

(RW, I , SBL , REL , CON ) 
HAXMIN  147160 

MUNPSI 

147254 

300144 

(RW, I , GBL , REL , CON ) 
MUNPSI  147254 

RTXCQV 

147420 

300314 

(RW, I , GBL, REL, CON) 
RTXCQV  147424 

UNMIND 

147734 

000266 

(RW, I, GBL, REL, CON) 
UNWIND  147736 

TCKCLK 

150222 

001076 

(RW, I , GBL, REL, CON) 
TCKCLK  150222 

A2DTCK 

151320 

001654 

(RW, I , GBL, REL, CON) 
A2DTCK  151410  INIA2D 

151604 

FLTIX4 

153174 

000150 

(RW, I , GBL, REL, CON) 
FLTIX4  153176 

ISTACK 

153344 

000200 

(RW , 0 , LCL , REL , CON ) 

ISTKST 

153544 

000000 

( RW , D , LCL , REL , CQN ) 
IIISTK  153544 

Transfer  addres 

s  *  3207 

30,  High  li.mt  *  153544 

*  27570. 

words 

■'•>»  .v 


FORTRAN  SUBROUTINES 

RT-U  LIBRARIAN  V03.35  NON  30-JAN-84  318:00:33 
TCKLIB  SAT  19-NQV-83  00:00:00 

HQDULE  SLOBALS  GLQBALS  GL0BAL5 

HTINIT 
MTSTAT 
BEHEST 
PURFIl 
SMOOTH 
CHLMIX 
FILTER 
TCKTDA 

* 


MTCONT 

* 


* 


& 
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Mon  J0-Jan-B4 


The  data  of  this  revision  is  26-Nov-90. 


3081 

Wiii 

c 

p 

SUBROUTINE  fITINIT  ( IUNIT) 

u 

C  1 

p 

COMMON/ DAT A /CONST ANTS  AREA 

8802 

L 

COMMON  /MT8LK/  I DNSTY , I PARTY , ISTATU ( 1 2) 

0083 

p 

DATA  INO/-1/ , IYES/1/.XNO/1HN/, YES/1HY/ 

L 

c.... 

p 

..tape  recorder  initialization  SUBROUTINE. 

0004 

L 

230 

CALL  INI  TAP  ( IUNIT, IDNSTY, IPARTY, ISTATU) 

0005 

IF  ( ISTATU ( 1 )  .EQ.  INO)  GO  TO  201 

0007 

IF  ( ISTATU (2)  .EQ.  INO)  GO  TO  202 

0009 

TYPE  23 

0010 

204 

IF  ( ISTATU (4)  . E8.  INO)  GO  TO  206 

0012 

TYPE  24 

0013 

IF  ( ISTATU (6)  .EQ.  I YES )  GO  TO  208 

0015 

214 

TYPE  28 

0016 

ACCEPT  292,  ANSWER 

0017 

IF  (ANSWER  .EQ.  XNQ)  GO  TO  210 

0019 

IF  (ANSWER  .EQ.  YES)  GO  TO  205 

0021 

TYPE  291 

3022 

GO  TO  214 

0023 

210 

TYPE  280 

0024 

ACCEPT  292,  ANSWER 

0025 

IF  (ANSWER  .EQ.  XNO)  GO  TO  211 

0027 

IF  (ANSWER  .EQ.  YES)  GO  TO  209 

0029 

TYPE  291 

0030 

GO  TO  210 

C  Alternate  TRAPs  area 
C 


3031 

231 

TYPE  20 

4* 

0032 

p 

50  TO  205 

0033 

L 

202 

IF  ( ISTATU (3)  . 

EQ. 

I  YES ) 

GO  TO  203 

0035 

TYPE  21 

0036 

C 

SO  TO  205 

* 

0037 

203 

TYPE  22 

3033 

C 

GO  TO  204 

3039 

235 

PAUSE  '  IN I TAP 

Tailed  to 

initialize 

0340 

p 

GO  TO  200 

0041 

L 

206 

TYPE  25 

0042 

IF  ( ISTATU (S)  . 

EQ. 

I  YES ) 

GO  TO  207 

0044 

r 

GO  TO  205 

L 

^  7 

T  V  D  C  ?  L 

v  CR  > 
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0046 

r 

GO  TO  205 

0047 

L 

208 

TYPE  27 

0048 

ACCEPT  292,  ANSWER 

0049 

IF  (ANSWER  .EQ.  XNO)  SO 

TO 

211 

0031 

IF  (ANSWER  .EQ.  YES)  GO 

TO 

203 

0033 

TYPE  291 

0034 

r 

SO  TO  208 

0033 

L 

209 

CALL  EQFTAP  ( IUNIT, ISTATU) 

0036 

IF  ( ISTATU ( 1 )  .EQ.  INO> 

30 

TO  213 

0038 

212 

TYPE  281 

0039 

ACCEPT  292,  ANSWER 

0063 

IF  (ANSWER  .EQ.  XNO)  GO 

TO 

211 

0062 

IF  (ANSWER  .EQ.  YES)  GO 

TO 

209 

0064 

TYPE  291 

0065 

r 

GO  TO  212 

0066 

L 

211 

r 

RETURN 

0067 

w 

?  t  T 

TYPE  29 

0068 

CALL  MTSTAT (IUNIT) 

0069 

RETURN 

C 

C  FORMATS  area 
r 


0070 

20 

FORMAT 

(  ' 

ERROR  on  INITAP  return  (CAL.,  arguments)!',!) 

0071 

21 

FORMAT 

C 

Tape  unit  is  NOT  ON  LINE!',!) 

0072 

22 

FORMAT 

(  ' 

Tape  unit  is  ON  LINE  but  tape  is  NOT  at  BOT!’,$) 

0073 

23 

FORMAT 

(  ' 

Tape  unit  is  ON  LINE  and  tape  is  at  BOT!',$) 

0074 

24 

FORMAT 

(  ' 

Tape  unit  is  ready ! ' , 1) 

0075 

25 

FORMAT 

(  ' 

Tape  unit  is  NOT  ready!',!) 

0076 

26 

FORMAT 

( ' 

Tape  is  rewinding  (or  loading  f orward) ! ' , 1) 

0077 

27 

FORMAT 

( ' 

Tape  is  WRITE  PROTECTED  (ring  is  OUT)-do  you  want  to  re i 

In i t i al i 

:e 

?  < Y  or  N >  ' ,1) 

0073 

230 

FORMAT 

( ' 

Do  you  want  an  immediate  EOF  (end  of  file)  to  precede  th 

4e  data? 

Y  or  N >  ' ,1) 

0079 

23 

FORMAT 

(  ' 

Tape  is  NOT  write  protected  (ring  is  IN)-do  you  want  to 

Ireinitiali 

.:#?  <Y  or  N>  ' ,1) 

0080 

281 

FORMAT 

(  ' 

Do  you  want  another  EOF  on  this  tape?  <Y  or  N >  ',!) 

0081 

29 

FORMAT 

( ' 

ERROR  on  EOFTAP  return!  '  ,1)  • 

0082 

291 

FORMAT 

( ' 

WRONG  answer*  ' ) 

0083 

292 

FORMAT 

(Al) 

0084 

END 

FORTRAN  iv 
AT 
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0001  SUBROUTINE  MTSTAT ( IUNI T) 

C 

C  COMMON/ DAT A/ CONST ANTS  AREA 
C 

0002  COMMON  /MTBLK7  IDNSTY, IPARTY, ISTATU ( 12) 

0003  DATA  INO/-1/, IYES/l/.XNQ/lHN/, YES/1HY/ 

C 

C . error  status  determination  SUBROUTINE.. 

C 


0004 

600 

CALL  STATAP  ( IUNIT , 

ISTATU) 

000? 

IF  ( ISTATU (8) 

.EQ. 

IYES) 

GO 

TO 

608 

0007 

IF  ( ISTATU  ( 1 ) 

.EQ. 

I  YES ) 

GO 

TO 

601 

0009 

0011 

IF  ( ISTATU (2) 
TYPE  63 

.EQ. 

INO) 

SO 

TO 

609 

0012 

0014 

609 

IF  ( ISTATU (3) 
TYPE  661 

.EQ. 

INO) 

GO 

TO 

6ia 

0015 

0017 

610 

IF  ( ISTATU (4) 
TYPE  662 

.EQ. 

INO) 

SO 

TO 

604 

0013 

0020 

604 

IF  ( ISTATU ( 6 ) 
TYPE  64 

.EQ. 

INO) 

SO 

TO 

605 

0021 

0023 

605 

IF  ( ISTATU ( 7 ) 
TYPE  65 

.EQ. 

INO) 

GO 

TO 

606 

0024 

0026 

606 

IF  ( ISTATU (5) 
TYPE  68 

.EQ. 

INO) 

SO 

TO 

607 

0027 

0029 

607 

TYPE  69,  ( ISTATU ( K ) 
RETURN 

II 

,12 

) 

C 


-  C  Alternate  TRAPs  area 

C 


0029 

601 

ISTATU  ( 1 ) 

=  INO 

0030 

TYPE  60 

3331 

TYPE  67, 

ISTATU (2) 

0032 

IF  ( ISTATJ (3)  .EQ.  INO)  GO  TO  602 

0034 

IF  ( ISTATU ( 4)  .EQ.  INO)  GO  TO  603 

0036 

r 

RETURN 

0337 

L 

602 

TYPE  61 

0038 

r 

RETURN 

0039 

L 

603 

TYPE  62 

0040 

r 

RETURN 

0041 

L 

608 

TYPE  663 

0042 

ISTATU  ( 1  > 

=  IYES 

0043 

r 

RETURN 

C  FORMATS  area 

r 

0044 

60 

FORMAT  C 

ILLC  bit  set:  ILLEGAL  co*i»and-here  is  why:',*) 

0045 

61 

FORMAT  (' 

SELR  =  INO:  tape  unit  is  NOT  ON  LINE'',*) 

0046 

62 

FORMAT  (' 

CURD  =  INO:  control  unit  is  NOT  ready!’,*) 

0047 

63 

FORMAT  ( ’ 

NXM  bit  set:  no  memory  response1',*) 

0048 

64 

FORMAT  ( ' 

B6L  bit  set:  BUS  too  slow  responding!',*) 

3049 

65 

FORMAT  (' 

PAE  bit  set:  UNABLE  to  recover  parity  error1',*) 

It 

li 


= 

.1 

bit 

s 

foil  0 

rt 

IN 

RC 

s 
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V02.  1  ■ 


f 

I 


i 


«* 


4) 


£ 


c 

C  Data  of  this  revision:  2-Jul-83 
C 

C  A  systea  optimized  version  of  a  1  east-squares  procedure  for 
C  the  direct  estimation  of  azimuth  and  velocity  of  a  propagating 

C  wave.  (Flinn  &  McCowan,  1970) 

C 

0001  SUBROUTINE  BEHEST 

C 

C  -XDIF,-YDIV,-TDIF  are  differences  between  pairs  of  an  array. 

C  The  F  or  T  preceeding  the  above  are  the  SP  element  and  LP  element 
C  array  indicators.  The  differences  are  ordered  1-2 , 1 -3 , 1-4 , 2-3 , 

C  2-4, 3-4  on  the  arrays,  n.b.  If  either  array  has  only  three 

C  active  elements,  the  differences  must  be  reordered  1-2, 1-3, 2-3. 

C 

C  COMMON/ar ray /DATA  area 

C 

0002  COMMON  /APARAN/  FXD I F ( 6) , FYDI F ( 6 ) , FTDIF ( 6 ) ,FSIGMA(4) , TXO IF ( 6 ) , 

CTYDIF (6) , TTD IF ( 6 ) , TS I GMA  ( 4 ) 

0003  COMMON  /ANALYS/  FFSPQX ,FRH0V6,FVELQC , FAZ INF ,FVEVAR , FAZ VAR , I FSTAT , 

CFMU (4) , FPS I ( 4 ) ,FRH0(6> , IFMAX ( 4 ) , IFMIN14) , FTSPQX , TRHOVG , TVELQC , 
{TAZ IMF , TVEVAR, TAZVAR , ITSTAT, TMU (4) , TPSI ( 4 ) , TRHQ (6) , ITMAX ( 4 ) , 

{ ITMIN ( 4) 

0034  COMMON  /NISC/  ITMPRY ( 1536) , IFCNBR , ITCNBR , ISTAT , ITRGRY ( 129) , 

(CALLER, INRDIF, INRCHL, ITRMAX, I  TWEAK, FIN6RY1 256, 4) , 

( I XFLGF ( 6 ) , IXFLGT(6) , FDIFA ( 6 ) , TD IFA ( 6 ) 

0005  COMMON  /WRKSPC/  XDIF (6 > , YD  IF (6 ) ,TD IF  '  6) , THETA , DENOM , XBYX , YBYY , 

CTBYT,XBYY,XBYT,YBYT,DET,FI,F2,VEL0C,AIIMF,F1F1,F2F2,F1F2,VEVAR, 
(AZVAR,V2,V4,FBYl ,F8Y2,FBY3,FBY4,FBY5, TERRSQ, XONE 
C 


3036 

C. 

DATA  RADDEB/57. 29578/ , THREE/ 1HT/ , I M 0 / - 1 / , I YES/  1 1 

c 

c 

Compute  the  generalized  inverse  matrix  of  station  separations 

c 

This  requires  the  " 1 ef t-i n verse "  of  the  non -sy maetr  i  c  matrix 

c 

CHI,  given  by:  (l/tHJ'CHJ)CH3'  where  CHI'  ;s  the  conjugate 

c 

r 

transpose  of  CHI. 

0007 

ISTAT  =  I YES 

0308 

r 

10 

IF  (CALLER  .EQ.  THREE)  SO  TO  12 

0010 

DO  it, I  =  1 , INRDIF 

0011 

XDIF(I)  =  FXDIF(I) 

0012 

YDIF(I)  =  FYDIF(I) 

0013 

11 

TDIF(I)  =  FTDIF(I) 

0014 

r 

30  TO  13 

0315 

4  H 

k  a. 

DO  14,1  =  1, INRDIF 

0316 

XDIF(I)  *  TXDIF(I) 

0317 

YDIF(I)  =  TYDIF(I) 

0018 

14 

TDIF(I)  =  TTD IF ( I ) 

3019 

w 

13 

XBYX  =  0. 

FORTRAN 

IV 

V  3  2 . 1-1 

Mon  30-Jan-94  00:33:30 

ST 

3020 

YBYY  =  0. 

3021 

TBYT  =  0. 

0022 

XBYY  =  0. 

0023 

XBYT  =»  0. 

0024 

Y8YT  =  0. 

0025 

DO  15,1  =  1 , INRDIF 

0026 

X 

TO 

-< 

X 

II 

X 

CO 

-< 

X 

♦ 

XDIF ( I ) **2 

0027 

YBYY  =  YBYY 

■f 

YDIF ( I ) **2 

0028 

TBYT  =  TBYT 

TD,F  f I ) **2 

3029 

.XBYY  =  XBYY 

+• 

XDIF ( I ! *YDIF ( I ) 

0030 

XBYT  =  XBYT 

XDIF ( I ) *TD IF ( I ) 

0051 

C, 

15 

Y3YT  =  YBYT 

YDIF ( I) *TDIF ( I ) 

PAGE  ,33: 
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Find  aciauth  (degrees)  and  velocity  (aeter s/second ) 


0032 

DET  =  1, / (  X BY X *YBY Y  -  XBYY**2> 

0033 

FI  *  (Y8YY#XBYT  -  XBYY*YBYT) *DET 

0034 

F2  =  (  X BY X  *Y8YT  -  X  BYY*X  B YT ) *DET 

0035 

THETA  =  ATAN2 (FI ,F2) 

0036 

DENOH  =  SORT (FI **2  ♦  F2**2) 

40 

3037 

IF  (DENOfl  .NE.  0.)  GO  TO  20 

3039 

ISTAT  =  INO 

0040 

n 

RETURN 

0041 

l 

20 

VELOC  =  1. /DEMON 

3042 

IF  (VELOC  .LT.  200. )  ISTAT  =  0 

* 

0044 

IF  (VELOC  .ST.  700, )  ISTAT  =  0 

3046 

AZ IMF  *  THETA*RAODES 

0047 

r 

IF  ( A Z IMF  .LT.  3.)  AZIMF  =  AZIHF  ♦  3s3. 

0049 

L 

F1F1  =  F 1 *F 1 

0050 

F 1F2  =  F  l  *F2 

* 

0051 

F2F2  =  F2*F2 

3352 

v:  =  veloc**: 

0053 

V 4  =  VEL0C**4 

0054 

FBY1  =  F I F 1  *  X  B  Y  X 

0355 

F3Y2  =  F2F2*YBYY 

3056 

FBY3  =  -F1F2*XBYY 

3057 

FBY4  =  F I F 1 »  Y  8  Y  Y 

3053 

FBY5  =  f:f:*xbyx 

0059 

TERRSQ  *  AB5  ( TB VT  -  rBY  1  -  CBY2  ♦  2*Fr'3.' 

0060 

XONE  *  TERRS3*V4*D£7 

0061 

c 

VEVAR  =  SORT  ■  '.'2*XONE*  ■  FBva  *  "9V5  *  :*r?Y3  ' 

«4, 

3062 

AZVAR  =  SORT  '  XONE*  cBy2  *  "B*1!  -  :*rr-7  * c  A  2'  D  E  5 

0063 

if  -iNRc:r  . E2.  so  t:  :: 

3065 

vE/AR  =  .  Z 5 •  »' E V A P 

0066 

AZVAR  =  .  Z5*AZ'.  AR 

<* 

006? 

•y  T 

IF  2AL.E9  .11.  '-REE  30  T2  Zl 

3069 

r  » E  -  2  C  =  v  E  L  Z  Z 

30'0 

*4:; if  ^ 

FORTRAN  IV 
ST 


702. 1-1 


0071 

FVEVAR 

S 

VEVAR 

0872 

FAZVAR 

= 

AZ'VAR 

0073 

P 

RETURN 

L 

0874  21 

TVELOC 

s 

VELOC 

0875 

TAZINF 

s 

AZIflF 

0076 

TVEVAR 

= 

VEVAR 

0077 

TAZ VAR 

s 

AZ  VAR 

0079 

RETURN 

C 
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3313 
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3313 

3316 

331  ’ 
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3322 

u: ' 

3 .» :  * 

i  •  * 
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c 

C  Date  of  this  revision:  31-Jar, -33 
C 
C 
C 
C 
C 


3331 


3302 


3333 

3334 
330S 


C 

C 

c 


P  =  CN*Tr(S**2)  -  Tr ( S ) **2 1 / C ( N  -  l)*Tr(S)**23  where  each  Trace 
and  cross-tern  series  is  appr opr i atel y  conditioned,  i.e.  has  a 
“running  averager-  {SMOOTH)  applied  three  tines. 

SUBROUTINE  PURFIL(FREARY) 

COMMON/array  area 


COMMON  /M I  SC/  ITMPRY(1536) T IFCNBR,  ITCNBR, ISTAT,  ITRGRY ( 129)  , 
(CALLER, INRDIF, INRCHL, ITRMAX,ITN£AK,FIM6RY(236,4) , 

{ I XFLGF ( 6 ) , IXFLST<6) .FDIFAC6) ,TDIFA(6) 

COMMON  /WRKSPC/  DUMMY  1 (256) ,DUMHY2  (256) .TRACED (256) ,TRACEN(256) 
DIMENSION  POLARZ (256) , FREARY ( 256 , 4 ) 

EQUIVALENCE  (POLAR Z ( 1 ) , DUMMY  1 (1) ) 

C . .  .routine  area . 

C 
C 
C 


Insure  that  DC  terns  are  0! 


3336 

13 

DO  11,1  =  1, INRCHL 

3037 

FREARY  (1,1)  =  0. 

3309 

11 

r 

FIMGRY (1,1)  =  3. 

0339 

L 

IN  *  INRCHL  -  1 

3313 

F1C0EF  =  t . /FLOAT ( IN) 

3311 

F2C0EF  =  F1C0EF*FLQAT( INRCHL) 

Form  trace  terns  of  spectral  natrices  and  determne  oosition 
(frequency)  of  last  (if  nore  than  one)  max l nun  value. 

DO  20,1  =  1,256 
TRACED  ( I )  =  3. 

23  TRACEN(I)  =  3. 

DO  21,1  =  1, INRCHL 

DO  22, J  =  1,256 

22  DUMMY  1 ( J )  *  FREARY ( J , I ) *F23  DO  21, <  =  1,256 

TRACED (K)  =  TRACED (K  J  +  DUMMY1 (K) 

21  TRACEN  ( K )  =  TRACEN ( K )  ♦  DUMMY  1  (K ) *DUM“Y 1 ( K ) 

rRACEM  *  3. 

:  "ia»  =  j 

::  24, :  .  : ,256 

' 3 A 2 £ 2  :  .lT.  tRACEM)  GO  TO  25 


T.  TRACEM)  GO  TO  25 
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0029 

tracen  *  trace:  : : > 

A 

0029 

ITRHAX  »  I 

V 

0030 

23 

tracet  *  trace:  ' :  »traceo : : 

0031 

IF  (TRACET  . 3T .  3.  33  ’3  2* 

0933 

ITRHAX  *  3 

9034 

33  '0  30 

3033 

24 

TRACED : ! >  -  F2C2EF ' TRACET 

r 

* 

c 

c 

For*  craii'ti'ii  o4  istctral  oatricf* 

c 

0036 

00  30,1  *  1  ,  IN 

0037 

1 1  »  I  *  1 

* 

3039 

03  33. j  *  Il.lNRC^t 

9039 

00  32,*  *  i.23i 

0040 

2W ***»*:  *  ■  j  esc^s*  •  ,  ;  »csgap,  • 

334: 

-- 

D^nn*:  «  1  f;*iGR'  »s-ea6' 

0042 

0  2  3  3  ■  *»  *  1.3 

3043 

CAuw  5*cc7-> 

3044 

•  v 

*  J 

/• 

2Act  g-:c’-  oun-«: 

3043 

23  33..  *  1.236 

3046 

*  Z--**.  w  •  •  Z*mm*Z  - 

X- 

33* 7 

’FACEN  .  *  'F-CEN  .  • 

30*9 

T3 

::n7  :  v,e 

2:«0 jt *  :«;'•«  •  ;  : . •'  :  # ■  : -  .  ' 

x* 

304? 

-I.ab;  .  1 

3333 

: :  i3..  =  .236 

333: 

:  *  '3-:en  : 

3032 

43 

•  z  l  - 3 '  •  1 ;  _  - s •  '  •  t  -  * 

333  ! 

2  Z  4  .  .  ]  *  .  ,  S 6  .  •  . 

* 

* 

303* 

::  4; . ;  -  . .  .3; 

3033 

so  EAR*  i  satis-  ♦  -  . 

3336 

4: 

F  I  ■*  3R  »  J  . :  :  j*  '  .  .  -3 

r 

3337 

33 

®  E  T ' j  R  N 

3039 

END 

'E  -fc  '  > 
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r 
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5w8«0U’:n£  aNCC’"1  'EC T 

:r 
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dihems::*  ;ec’3^  216 
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*  a. 

aaa« 
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*  . ;i*v£Cr3R' :?3! 

iaa6 
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aaa 
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’  3 

aaa<) 

r 
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19  I 
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aa. 
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*****♦♦«*  CHLMIX.FQR 
Date  of  revision:  30-Jun-B3 
SUBROUTINE  CHLNI X ( ICHNLM) 

PURPOSE 

To  rearrange  parameters  in  case  of  a  aissing  channel 
USAGE 

CALL  CHLM I  X ( ICHNLM) 

INPUT  PARAMETERS 

ICHNLM  -  The  eissing  channel  nuaber: 

0,1,2,  or  3  if  F  array 
4,3,6,  or  7  if  T  array 
8  if  none  (to  correct  a  previous  entry) 

REMARKS 

If  during  the  run  of  a  prograa,  a  three  channel  situation 
occurs,  this  routine  Mill  rearrange  the  analysis  paraaeters 
accordingly.  If  the  systea  is  then  restored  to  four  channels, 
this  routine  aust  b«  called  (Mith  ICHNLM  *  8)  to  restore  the 
anginal  analysis  paraaeters. 

COMMON  ,'NISC/  1TMPRY  ( 1536)  ,  IFCNBR,  IT2'.BR,  ISTAT.ITRGRY  i  129)  , 
(CALLER, I NRO I F, I NRCHL, ITRMAX, r TKEAK.F; -SR Y( 236, 4)  , 

:  1 4FL5F  1 6 ► , IXFL3T  i i  ,  F D ! F A ( a ) , TD I F A i 6 

COMMON  APARAM/  F X D I F ( 6 ) , F YD  I F ; 6 ) , F TD I F : 6 ) , FS I SMA ( 4 ) , TX D I F < 5 i , 

"  '  ^  0  I  F  (  6 )  ,  T  T  0  I  F  •  6 ;  ,T3:5MAi4! 

DIMENSION  MIXUP  :  l : i ,JXFLjF'6) , JXFLGT' ;  , FD IFB < 6 ) , TD I FS ( 6 > 

3  I  MENS  I  ON  F<DIFA(6) ,F<DIFA(6> , T  X  0 1 F  A ; 6 ■ , T  V  0 1 F  A ( 6 ) 

3ATA  MIXUP.  4. 5, 6, 2, 3, 6, 1 ,3,3, 1,2, 4/,  FOUR/  IHF/,  THREE  / 1 H  T 
2 A 'A  JXFL3F  23, 33. 23. 23. 33, 23/  ,F3 IFB  12.  .16.  ,11.  ,11.  ,16.,  11. 

DATA  JXFLST  :  7,23,63, 1  7,  '3, 73,  , ’0 IFB. '2. 0, 3. 3.3. 3, 2. 0,9. 23, 9. 3 
3ATA  FXDIFA.'  1 432.  .339'.  ,  2460.  ,  2463.  .  1329.  .  -1  437.  / 

CA’A  cyd I  fa  23  20. . 1090. , -1372.  ,  -  1  422.  ,  -3992.  ,  -  2470.  / 

CAT  A  TXDIFA/-I63. . 100. , 19-V. ,  463.  ,  2331. ,  1971  .  / 


OATA  TYDIFA/ -407. ,-613. 


!1 


. 


/ 


7) 


:  i 


IF  'ICHNLM  . 3T . 

IF  (ICHNLM  .3T. 

INOEX  «  ICHNLM  *  3 
DO  200  I  -  1 . 3 
INDEX  *  INOEX  ♦  1 
:  ® 0  I  NT  »  MIXUP' INDEX) 
IF  CALLER  .£0.  THREE ) 


30  T0  380 
ICHNLM  *  ICHNLM 


00 


I  < c  L  3  F  I  I 
c  D  I  F  A  (  I  1 
FXOIF  :  I ) 
p/DIF'  I 
IF  CALL: 
I X Fl 3 T  I 
TO  I F  A  i  I) 


GO  TO 
JXFL3F ( I P  0  I N  T ) 
rD I FB ( IPOINT' 
FXOIFAt IPOINT) 
FVCIFA! IPOINT' 

. £0.  "OUR )  30  *0  : 

JXF.3T ( IPOINT' 
TDIrS ■ IPOINT) 


100 


Ot 
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0031 

TXDIF(i)  =  TXQ IFA ( IPOIHT) 

0032 

TYDIF(I)  =  TYDIFA  C IPOINT) 

0033 

200 

CONTINUE 

0034 

RETURN 

0035 

300 

IF  (CALLER  .EQ.  THREE)  GQ  TO 

0037 

IFCNBR  *  4 

003S 

DO  301  I  =  1,6 

0039 

IXFLSF(I)  =  JXFLGF  !  I ) 

0040 

FDIFA(I)  *  FDIFB(I) 

0041 

FXD IF  ( r  >  *  FXDIFA(I) 

0042 

301 

FYOIF(I)  ■  FYDIFA ( I ) 

0043 

400 

IF  (CALLER  .EQ.  FOUR)  RETURN 

0045 

ITCN8R  *  4 

0046 

DO  401  I  »  1,6 

0047 

IXFLGT(I)  =  JXFLGT(I) 

0048 

TDIFA(I)  =  TDIFB(I) 

0049 

TXDIF(I)  =  TXDIFA(I) 

0050 

401 

TYDIF(I)  a  TYDIFA ( I ) 

0051 

RETURN 

0052 

ENO 
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ER 

CHimuttt**  FILTER. FOR  ******************************** . ♦♦♦♦ 

C 

C  Oat*  of  this  rtvision:  l3-Nov-93 

C 

3881  SUBROUTINE  FILTER 

C 

c  COMMON /array /DATA  araa 

C 

8882  COMMON  /PASBLK/  IklKHDR  1 20> ,1 3CHNL (512,8) 

8083  DIMENSION  F3CHNL < 236 , 3 !  ,  I  BOOST ( 4 ) 

8004  EQUIVALENCE  (F8CHNL (1,1),  I8CHNL  ( 1 , 1  >  > 

8083  COMMON  /ANALYS/  FFSPQX  .  FRHOVG ,  F'/ELOC  ,  FAZ  I MF  .  F  VEVAR  .  F  A  Z  V  AR  .  I  e  3  T  A  T  . 

IFMU (4)  ,FPSI  <  4)  ,FRH0 (6) , IFMAX < 4 ) , IFH IN i 4 t , F TSPQ* . ’PHOVS , TVELO I . 
CTAZIMF,TVEVAR,TAZVAR,ItSTAT,:mU(4) , TPSI  14,  , ’»HO(6< , I  THAI  4  , 

1 1 TM IN ( 4 ) 

3086  COMMON  /  M I  SC/  ITHPRY  (  1336)  ,  IFCNBR,  I  T  C  N  B  R  ,  I  S  T  A  r  ,  I T  R  3  R  v  <  1  2  **  . 

: CALLER, INRDIF, INRCHL, ITRMAJ , ITKEAK.FI  MGR v (236.4 .  . 

:  I  X  FLSF ( O -  ,!<FL3T(6).F0IFA(6),TDIFAii! 

8007  COMMON  /MRKSPC/  I  INK  SPC  «  2348 ) 

8088  DATA  IFRMRD/ 1  '  ,  INVRSE,  -l  '  .  IYES  ‘  1  .  I  NO  -  1  ;  .  THREE  1  HT  '  .  ?  3  *J  R  IMF' 


C . . .  rout  i  na  araa 

C 


3089 

r 

IF  CALLER  .EQ.  'ARES 

'  50  TO 

3011 

INRCHL  *  I F 3 ’•  8 R 

0012 

DO  33.1  *  I  .  INRCHL 

3013 

I  BOOS T  I )  *  IrMA*  I 

ifmin 

i  > 

33 '.4 

If  ' I  3  G  C  S  *  l:  . n£ .  3 

I5CC3* 

l  * 

22-  IBCOS*  1 

3316 

*2 

Ic  ; .90DST  I )  .£3.  3' 

I  9  0  0  S  T 

i :  * 

1 

3313 

'  K  si 

3319 

SO  TO  33 

3320 

:  * 

INRCHL  *  I’CNBR 

3321 

DO  36.1  *  1.INP2HL 

3322 

; 3  c  o  s T  i'  *  i *  m a i  : 

’  *  «0  *  • 

ij  : 

3023 

IF  I  BOOST  r I  .NE.  ). 

:  bcos* 

'  4  * 

:i-:  :-::r  ■ 

33  25 

'  6 

IF  '  I80JST  1  . E3.  31 

13025  * 

'  S 

i 

3027 

C 

C 

•  2 

Tranafora  INRCHL 

-all  j* 

ut* 

a  -> :  ■ - r  ..  3  a  r 

c 

3029 

30 

DO  31.1  *  : . I * 9CHL 

3029 

DO  33 , M* 1 .312 

3830 

*  ^ 

lanSPC  'Ml  *  I 3(1  HNL  “ , 

*  K . *; BOOS*  I 

3031 

ISTAT'J  i  IFRHRD 

3032 

r 

CALL  FCT;i2  I4kSPC  1 

,  I  N  K  3  P  C 

c  ♦  * 

.  I  «•  ■;=>:  223  .  : 

3033 

r  >213 

3034 

CO  32, J  *  1.236 

3032 

F3CHNL  J.KK-  =  FL3AT 

IHKSPC  ( 

J  ■■ 

303a 

-IMGRY  J, I  =  ".3Ar  I 

4*  2°C  '  K 

£  C  r  TS  AN 

ER 


.a:. :  - 1  di-j^-j*  ai: aa: aa 
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3: 


31  KK  ■  KK  ♦ 


*u 

*YJ 

** 


L  •  •  •  a 

C 

1139 

KK  *  KK  -  I 

NRCHL 

1140 

:all  ^ubpil 

i  F8CHNL  1 1  ,*K  )  ) 

C 

INT  *i!t#r#d  3*t4,  '■#tr*n«for» 

r 

w 

11*1 

r 

DO  38,1  *  1 

, !N*Chl 

V  »  314 

a««3 

.o  *  .124 

aa*4 

;p  »  3i: 

1843 

:  4*  s«*c 1 1  * 

1 

•  •4a 

:*K5PC  31! 

-  1 

1847 

DC  3 1 . J  *  : 

.  23i 

a  149 

:4»spc  j  ’ 

itT  :.*> 

1849 

; 4K s pc  jp 
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1838 
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TCKT 


0001 

9002 

0003 

0004 

0003 

0006 

0907 


9008 

0009 

0910 


90i: 

0014 

0013 

9016 

9917 

9918 
901? 
0921 
0922 

00:: 


C»»****4»*«t*«  TCKTDA. FOR  ******************«*****4**#***#* *♦♦+*♦**♦♦♦ 
C 

C  Data  of  this  revision:  19-Nqv-93 
C 

C  A  subroutine  to  do  the  Time  Domain  Analyses  of  TCK3CH  data. 

C 

SUBROUTINE  TCKTDA 
C 

COMMON  /PASBLK/  IWKHDR ( 20) , IFCHNL (512 , 4 ) , ITCHNL (512 , 4) 

COMMON  /APARAM/  FXOIF ( 6) , FYD IF (6) ,FTDIF (6) , FS ISMA ( 4) , TXD IF ( 6 )  , 
(TYDIF(6> ,TTDIF(6) ,TSIGMA(4> 

COMMON  /ANALYS/  FFSPQX ,FRH0V6, FVELOC , FAZ IMF, FVEVAR , FAZVAR , IFSTAT , 
(FMU (4) ,FPSI (4) , FRHO (6) ,IFMAX(4)  ,IFMIN(4) , FTSPQX , TRHQVG , TVELOC , 

(TAZ IMF , TVEVAR ,TAZVAR,ITSTAT, TMU ! 4) , TPS  1(4) , TRHO (6) , ITMAX ( 4) , 

{ ITM IN ( 4) 

COMMON  /HISC/  ITMPRY(  1536) ,IFCNBR, ITCNBR,  ISTAT,  ITRGRY ( 129)  , 
(CALLER, INRDIF, INRCHl, I TRMAX, IT WE AK,FIM6RY( 236,4) , 

(IXFLSF(6) ,IXFL3T(6> , FDIFA (6) , TD IFA  (6 ) 

COMMON  /WRKSPC/  IWKSPC ( 1 172) ,RHOARY (75) , IEND, JEND, IDUM, TDIF. 
CRHOMAX,FDIF,FNRDIF,IXFLG 
C 

DATA  IYES/1/, INO/-1/ , THREE/ 1HT/ ,FQUR/1HF/ 

C . routine  area . 

C 

C  Compute  cross-correl ati ons  (normalized  covariances)  between 
C  all  pairs  of  the  arrays. 

C 

INRDIF  *  6 
ISTAT  =  INO 

IF  (CALLER  . EQ .  THREE)  50  TO  59 
C 

C  Here's  the  four  element  (F)  analysis. 

C 

IF  (IFCNBR  . EQ .  3)  INRDIF  =  3 
fVRQIF  *  FLOAT ( I NRD I F ) 

DO  30,1  *  1 , IFCNBR 

CALL  1 A X 1 1 N  < IFCHNL (1,1), IFMAX ( I ) , IFM IN ( I ) ! 

CAL»  NUNPSI ( IFCHNL . 1 , 1 ) , FMU < I ) , FPS I  i  I  " 

F3 1  SNA ( I )  «  FPS  I  ( I )  -  FMU ( I ) **2 
IF  (FSISMA ( I )  .LE.  3.)  SO  TO  62 
FSIGMAt I)  *  SORT ( FS 1 5MA  ( I ) ) 

FPSI  ( I )  *  SORT  ( FPS  I  ( I)  > 

IAVG  «  I NL •  I Z ,  I )  -  I AV5 


00C3 

frhovg  *  9. 

002  7 

IEND  *  IFCNBR  - 

0929 

JENC  *  IFCNBR 

202  ? 

1  =  I 

0932 

DO  61,1  *  1, IEND 

3931 

c  =  I  ♦  1 

9932 

DO  6  1 ,  J  =  K  ,  JEND 
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8033 

IXFLG  *  I XFLGF ( M ) 

0834 

CALL  RTXCOV ( IFCHNL (1,1) , IFCHNL ( 1 , J ) , I NY SPC , RHCAR Y , I XFlG ) 

0035 

c 

RHOHAX  *  -10000. 

0036 

FOIF  «  FDIFA(N) 

0037 

DO  63, L  =  i.IXFLS 

0038 

IF  (RHOARY(L)  .LE.  RHOHAX )  3Q  TO  63 

8040 

RHOHAX  *  RHOARY(L) 

0041 

FTDIF(M)  *  FDIF 

0042 

63 

FD IF  *  FDIF  -  1. 

0043 

c 

FRHO(H)  *  RHQHAX/(FSIGHA(l!»FSIGHA(J>  ) 

3044 

FRHOVG  =  FRHQVS  ♦  FRHO(H) 

0045 

61 

H  »  PI  ♦  1 

0046 

FRHOVG  *  FRHOVG/FNRDIF 

0047 

C 

CALL  BEHEST 

3048 

62 

IFSTAT  *  ISTAT 

3049 

t 

I  DUfl  *  IWKHDR  ( 2)  -  3 

0050 

IF  ( I DUI1  .LE.  0)  IFROFG  *  0 

0052 

IF  (IFSTAT  -  3)  66,69,68 

0053 

66 

TYPE  10, CALLER 

0054 

GO  TO  69 

0055 

68 

IF  (FRHOVG  .GE.  .59)  IFROFG  *  I W K H D R  <  2 ) 

0057 

TYPE  12, 1 DUH ,  I NTHDR  (  2 )  , FFSPQX , FAZVAR ,  FVEVAR  ,  IFROFG , FAZ I MF  ,  F'.'ELOC 

3058 

69 

TYPE  14, CALLER, FTOIF, FRHOVG 

0059 

IF  (FFSPQX  .ST.  0. 1  RETURN 

0061 

type  i i , caller, frho 

0062 

DO  65,1  =  l , IFCN0R 

0063 

35 

type  15, CALLER,  IFHAX  ( I '  ,  IFHIN  ( I )  ,FH'J  I  i 

,FPSI (I ! , FS I GHA ( I ) 

0064 

r 

RETURN 

r 

c 

Hgrg's  tng  tnrg*  »1  aagnt  vT  mal/sis. 

3065 

39 

IF  (ITCNBR  .EQ.  3)  INRDIF  *  3 

0067 

PNRD I F  «  FLOAT  !  INRDIF) 

0063 

DO  50,1  *  l ,  ITCNBR 

0069 

CALL  HAXH I N (  ITCHNL  ( 1 , 1 )  ,  I  THAX  (  I  >  ,  I  Tn  I  *i 

'Iii 

3070 

CALL  MUNPSnnCHNLd.I)  ,THU(I)  ,TPSI  <  I 

3071 

TS I GHA ( I )  «  TP 5 I ( I)  -  THU (  I ) »»2 

0072 

IF  (TSIGHA  '  I )  . LE.  3. >  GO  TO  52 

0074 

TSIGHAI I )  *  SORT  '  T3IGMA ( I ) ' 

3075 

TPS  1(1)  ■  SCRT ( TPSI ( I: > 

0076 

I AVG  *  I  NT ( THU  (  I )  ) 

0077 

DO  50,12  *  1,512 

0078 

50 

ITCHNLUZ.Ii  *  ITCHNL  (  I  Z  ,  I )  *  IAVG 

8079 

L 

TRHOVG  =  0. 

0080 

I END  *  ITCNBR  -  1 

0081 

JEND  =  ITCNBR 

FORTRAN  IV 
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PASE  003 


TCK ' 


0094 

r 

K  =  I  ♦  1 

0085 

DO  51, J  =  K.JEND 

9086 

IXFLS  »  IXFLST(M) 

0087 

p 

CALL  RTXCOV ( I TCHNL (1,1) , I TCHNL ( 1 , J > , I WKSPC , RHQARY  ,  I XFLG ) 

9088 

L 

RHQMAX  =  -10000. 

0089 

TDIF  =  TDIFA(M) 

0090 

DO  53, L  *  1, IXFLS 

0091 

IF  (RHOARY(L)  .LE.  RHOMAX)  GO  TO  53 

0093 

RHQMAX  =  RHOARY(L) 

0094 

TTDIF(M)  »  TDIF 

0095 

p 

53 

TDIF  =  TDIF  -  .25 

9096 

L 

TRHO(M)  =  RHOMAX/ (TSISHA(I) ♦TSIGMA(J) ) 

0097 

TRHOVG  =  TRHQVG  ♦  TRHO(M) 

0098 

51 

M  a  M  ♦  1 

0099 

TRHOVG  *  TRHQV6/FNRDIF 

0100 

L 

CALL  BEHEST 

0101 

mi  a. 

ITSTAT  =  ISTAT 

0192 

L 

IF  ( IkIKHDR  (2)  .LE.  1)  ITROFG  =  0 

0104 

IF  (ITSTAT  -  0)  56,57,54 

0105 

56 

TYPE  10, CALLER 

0106 

GO  TO  57 

3107 

54 

IF  (TRHOVG  .GE.  .59)  ITROFG  *  IMKHDR ( 2 ' 

0109 

TYPE  13,  IWKHORC)  ,FTSPQX,  TAZVAR,  TVEVAR,  ITROFG,  TAZIMF,  TVELOC 

0110 

57 

TYPE  16, CALLER, TTDIF, TRHOVG 

3111 

IF  ( FTSPQX  .GT.  3.)  RETURN 

0113 

TYPE  1 1 .CALLER, TRHO 

0114 

DO  59,1  =  1 , ITCNBR 

9115 

c. 

58 

TYPE  1 3  ,  CALLER  .  I  TIMA X  ( l )  ,  I  TH  IN  (  I )  ,  THU  ( I  )  ,  TPS  I  (  I )  ,  TS  I GMA  (  I  ) 

3116 

c 

10 

FORMAT  <  ' ,A1 , 3X ♦♦♦INVALID  ANALYSI 5 1 1 ♦♦♦', *> 

01  1  7 

1  1 

FORMAT  ( '  ,Al,3X,6F5.2,f> 

0118 

i: 

FORMAT  (  F ’ ,16,  to ’ , 1 5 , 2X , F5. 1 ,  2F6. 1 , 3 X ,  <  ’  ,  I 4 ,  )  , 2F3 . C , J ) 

0119 

i: 

FORMAT  C  T',I6,9X,F6.2,2F6.1,19X,  (  ,14,  )  ,:F9.2,I) 

9120 

1  4 

fORMAT  (  , A 1 ,2X,6F5. 1 ,F5.2,*) 

0121 

15 

FORMAT  ( '  , A l , 2 I 6 , 3F7 . 1 ,*>  * 

0122 

16 

FORMAT  C  • ,Al,2X,7F5.2,4) 

0123 

L 

RETURN 

0124 

END 

GLOSSARY  OF  FORTRAN  VARIABLE  NAMES 


AMQNTH 

ANSWER 

ARRNBR 

AZIHF 

AZVAR 

BOTH 

CALLER 

DENOH 

DET 

DUflHY  1 
DUHHY2 
DUHMY3 
FI 

F1C0EF 

F1FI 

F1F2 

F2 

F2C0EF 

F2F2 

F8CHNL 

FAZINF 

FAZVAR 

FBY 1 

FBY2 

FBf3 

FBY4 

FBY5 

CDIF 

FDIFA 

FDIFB 

FFSPQX 

FIfIGRY 

FMU 

FNRDIF 

FOUR 

FPSI 

FREARY 

F  R  HO 

FRHQVG 

FSISMA 

FTOIF 

FTRHAX 

FTSPQX 

FVELOC 

FVEVAR 

fXOIF 

RXDIFA 

FYOIF 

FYOIFA 

I 

II 

1 3CHNL 
IA2DBK 


alphanunenc  aonth 
alphanuaanc  ans war  to  proapt 
alphanuaanc  array  Flag 
aziauth 

aziauth  standard  deviation 
alphanuaanc  B 
alphanuaanc  array  flag 
slowness 

deterainant  of  least-squares  aatrix 

real  coaponent  of  cross-tera  of  spectral  aatrix 

iaaginary  coaponent  of  cross-tera  of  spectral  aatrix 

aagnitude  of  cross-tera  of  spectral  aatrix 

least-squares  solution  factor 

polarization  filter  coefficient 

square  of  FI 

FI  tiaes  F2 

1  east -squares  solution  factor 
polarization  filter  coefficient 
square  of  F2 
real  data  array 
unfiltered  F  aziauth 

unfiltered  F  aziauth  standard  deviation 

least-squares  error  factor 

1  east-squares  error  factor 

1  east-squares  error  factor 

least-squares  error  factor 

least-squares  error  factor 

F  tiae  lags 

aaxiaua  F  tine  lag 

unadjusted  aaxiaua  F  tiae  lag 

real  F  spectral  estiaate 

iaaginary  FFT  data 

unfiltered  F  data  average 

real  nueber  of  channel  pairs 

alphanuaanc  F 

unfiltered  F  data  root-aean-square 
real  FFT  data 

unfiltered  F  cr oss-correl at i on  coefficient  tor  a  cfanne. 

unfiltered  F  average  cross-corre!  at  i  on  coefficient 

unfiltered  F  data  standard  de-.iation 

F  array  tine  lags 

aaxiaua  power 

real  T  spectral  estiaate 

unfiltered  F  velocity 

unfiltered  F  velocity  standard  de  •  i at i on 

F  array  X  dieensions 

unadjusted  F  array  X  dieensions 

F  array  V  dieensions 

unadjusted  F  array  V  dieensions 

DO  loop  mdex 

DO  1  oop  index  lint 

integer  data  arrav 

data  buffer  'as  written  to  tape/ 


IXFLGF 

IXFlGT 


nuaber  at  F  cross-correlation  ;as>ts  t  a  per  * ;r  « 
nuaber  of  T  :rpss-corr*lation  passes  to  siri;r» 


I  YES 

integer  vES 

1Z 

index 

J 

i  ndax 

JDAY 

day 

JEND 

DO  loop  index  Uait 

JFLAS 

TCKCLK  coaaand  Mag 

JHQUR 

hour 

JHRHIN 

hour'ainut#  coda 

JNIN 

at  nut# 

JNONOA 

aonth/dav  coda 

JP 

l  ndax 

JSEC 

second 

JTAIL 

analysis  results  to 

aacx  inti 

JXFLSF 

unadjusted  "jiDr  o 

i  c  : ' oss 

JXFLST 

unadjusted  nuacer  o 

*  T  -  r  3  S  S 

JYEAR 

year 

K 

DO  loop  mdt< 

inda« 

l 

;  ndax 

LP 

index 

H 

i  ndax 

rnxup 

cnannal  in  ar  -  a  . 

N 

i  nda  < 

PIOVRH 

pi  d : ’ i dad  a.  ::: 

polar; 

pol ar  * ; a  1 1 on  -liter 

spec  t ' 

PAOOEG 

radians  to  degrees 

:r.»ri;  o 

9HQARY 

C'dsj-Cdtreiit.a"  a 

"  a  . 

RMOnAX 

»axi»u*  :'oss-:or-e 

.  a  1 1  :  - 

R  INOX 

real  i n d  e  x 

:a; :«f 

;  1  terea  ’  Hint 

- 

AR 

u  n  M  1 1  e  r  e  d  ’  a :  .  *  u  t 

'  s  •  a '  d  a ' 

'3  y  T 

sue  a  *  t ; a  e  lags  so 

-  a r  e  d 

t?:f 

r  tie#  lags 

tdifa 

i a  < : a  u  a  *  tine  lag 

t;  ;  F9 

„n adjusted  e  a  - 1 «  u  e 

T  tite  la 

:E"Pi 

teeporary  e'dPOint 

sto' age 

rf*c  ; 

t  B*P  or jr,  endpoint 

storage 

TE*e: 

t  #»por  ar  v  e" dp o i  - 1 

st  o'  a  ge 

TERRSQ 

square  at  total  err 

or 

tmE”a 

a  :  i  e  u  t  n 

7  H  E  T  A  N 

real  FRT  p ar  aae t #r 

THREE 

alphanueer;c  T 

THU 

unMltered  T  data  a 

• erage 

TPS  I 

unM  1  tered  '  data  ' 

;ot -tear  - 

TRACED 

square  of  trace  ct 

-icec  t  -  al 

T9ACEH 

lixllui  3  0  *  e  r 

tracen 

trace  ot  soect'al  »at'i .  sou 

'=ACET 

n or ae l i ; a 1 1 3n  tact: 

r 

"RHO 

until tered  T  cross- 

ccrr el  at  * 

trhovg 

until tered  T  a  * er  age  cross-: 

T3 I GHA 

untiitared  T  data  s 

t  an dar  d  d 

ttdif 

T  array  1 1  *e  lags 

TVElOC 

untiltered  ’  .aloe: 

HIM 

14 j  at* 
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The  date  a  l  thj*  revision  is  IS  Sep  1930. 


01  The  Fallowing  collection  ol  MACRO  routines  were  created  to  control 
the  Digi-Oata  aodel  nr  1730  tape  transport  via  a  Digi-Data  PDP-11 
interlace  and  NRZ1  formatter  and  an  Able  Coeputer  Technology  model  nr 
19001  Univerter. 


02  Although  Digital  Equipment  Carp.  < DEC )  oilers  both  the  hardware  and 
soltware  lor  a  tape  systee  on  its  larger  PDP-11  series  coaputers,  at  the 
tiae  ol  this  writing,  DEC  does  not  oiler  a  soltware  driver  which  will 
run  on  the  LSI-11  senes  coaputers.  Digi-Data  oilers  its  package  as  a 
hardware  substitiute  lor  the  DEC  TH-ll  tape  deck,  the  Univerter  serves 
as  the  hardware  interlace  between  the  LSI-tl  Q-bus  and  the  Unibus  struc¬ 
tured  tape  hardware  and  this  enseable  ol  MACRO  routines  is  the  soltware 
dri ver/control ler. 


03  The  author  ol  this  and  splay  problea  is: 


K, 


B.  David  Spell  EE 
Dept,  ol  Electrical  Engineering 
University  ol  Alaska 
Fairbanks,  Alaska  99701  USA 
(907)  474-7819 


v' 

vl 

si 


k-1 


; 04  INITAP:  ( IUNIT, IDN3TY, IPARTY, I3TATU)  A  routine  to  initialize  the 
;  tape  systee  and  to  return  with  the  tape  systee  operating  status  alter 
;  the  initialization  attespt.  The  l  or  .natter  /  tape  deck  are  NRZI,  9  track, 

;  odd  parity  and  300  BPI.  Hence,  IDNSTY  must  be  300  and  IPARTY  must  be  1 
;  (lor  odd).  These  arguments  are  here  for  Future  expansion  and  any  value 
;  except  900  and  l  will  cause  a  premature  return  From  INITAP  with  an  INO 
:  (-1)  in  ISTATU(l).  I5TATU  is  an  INTEGER*2  array  ol  at  least  6  words 
;  which,  as  diagrammed  in  the  attached  How  chart  and  listed  in  the  below 
;  paragraph,  passes  the  status  ol  the  tape  system  tack  to  the  callerlUNIT  is  an 
ger  Iroe  0  to  4  specilying  which  ol  4  pos- 
;  sible  tape  drives  the  caller  wants  to  address. 


9b  ISTATU:  An  array  ol  words  which  pass  back  to  the  caller,  inlormation 
about  the  call.  As  listed  below,  INITAP  requires  an  array  ol  a  words, 
STATAP  requires  an  array  ol  at  least  12  words,  and  all  other  routines 
require  only  one  word.  Note  that  STATAP  has  two  possible  coni i gur ati ons , 
one  il  ILLC  is  IYES,  signifying  an  illegal  command  and  testing  the  reasons 
lor  it  and  the  other  when  ILLC  is  INO  with  a  subsequent  listing  ol  error 
tests. 
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ISTATU . 

. . . INITAP. . 

...ALL  OTHERS 

ISTATU  ( 1 ) . . . 
ISTATU  < 2)  . . . 

. .SUCCESS. . 

. bqt. . 

.  .  ILLC: I YES/ 1 NO. . . 

ISTATU (3) . . . 
ISTATU (4) .  .  . 

. SELR. . 

. tur.  . 

. CURD/RLE. . . 

ISTATU (5) . . . 
ISTATU (6)  . . . 

_ RSTAT. . 

. FPRO. . 

ISTATU (7) . . . 
ISTATU(S) .  .  . 

. *#*/E0F. . . 

ISTATU (9) .  . . 

. #*#/MTS. . . 

ISTATU (10) . . 
ISTATU  (11). . 
ISTATU (12) . . 

07  STATAP:  (1UNIT, ISTATU)  A  routine  to  determine  the  status  of  the  tape 
systen.  The  tape  controller  broadcasts  the  status  of  the  system  via  se¬ 
lected  bits  in  the  MTC  (control  register),  MTS  (status  register),  MTBRC 
(byte  record  counter)  and  MTCMA  (current  memory  address).  A  call  to 
STATAP  will  test  and  display  the  value  (set/clear)  of  selected  bits. 
STATAP  should  be  invoked,  after  an  error  return  from  another  routine, 
to  determine  the  cause  of  the  error.  I  UN  I T  is  the  unit  number  (0  to  4). 
ISTATU  is,  as  listed  previously,  an  array  of  at  least  12  words  which  is 
filled  as  diagrammed  in  the  attached  flow  chart. 


09  SPCTAP:  ( I  UN  I T , ICOUNT, ISTATU)  A  routine  to  soace  (skip)  records  on  a 
magtape.  I  UN  I T  is  the  unit  number  (0  to  4).  ISTATU  indicates  whether 
the  call  was  successful.  ICOUNT  is  the  number  of  records  to  space,  with 
a  negative  integer  indicating  reverse  spacing  and  vice-versa. 

39  REWTAF:  ( IUNIT, ISTATU)  A  routine  to  rewind  the  tape.  Call  arguments 
are  as  previously  explained. 

10  EOFTAP:  ( IUNIT, ISTATU)  A  routine  to  write  an  EOF  ( end-of-f i 1 e)  on  the 
magtape.  Call  arguments  are  as  previously  explained.  It  is  of  interest 
that  writing  an  EOF  in  a  "read-af^er-wr i te“  situation  will  generate  an 
EOF  error.  Consequently,  this  routine  is  structured  to  give  an  error  re¬ 
turn  ( ISTATU ( 1) =IN0)  if  no  error  is  detected  or,  if  one  is,  it  is  not 
an  EOF  error. 


11  WRITAP:  ( IUNIT, I8KADR, ISYTS2, ISTATU)  A  routine  to  write  information  on 
the  magtape.  IUNIT  is  the  unit  number  (0  to  4).  IBKADR  is  the  address 
of  an  array  or  a  block  in  memory  which  contains  the  data  to  be  written 
onto  the  tape.  IBYTSZ  is  the  number  of  BYTEs  (B  bit  words)  which  are  to 
be  written  onto  the  tape.  ISTATU  is  a  word  describing  the  success  or 
failure  or  the  write  command.  All  error  conditions  will  immediately  gener 
ate  an  I  NO  into  this  word,  except  PAE  (parity  error).  If  a  PAE  is  de¬ 
tected,  the  routine  will  try  to  rewrite  the  data  eight  (8)  times.  If 
a  PAE  is  still  detected,  the  routine  will  try  once  to  write  with  an  ex¬ 
tended  gap  preceeding  the  data.  If  that  method  fails  also,  an  I N 0  is 
generated  into  ISTATU  and  the  routine  returns. 
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41 


1 

2 

117 

ua 

119 

121 

123 

126 

127 

128 
129 

131  SIMM 

131 

132 

133 

134 


12  REDTAP:  ( IUNIT, I8KADR, IBYTSZ, ISTATU)  This  routine  is  used  to  read  nag- 
tapes.  The  arguments  are  as  described  under  WRITAP  except  substitute 
read  Tor  urite  and  this  routine  does  not  read  with  an  extended  gap,  but 
irather,  generates  an  INO  in  ISTATU  and  exits  after  just  eight  (8)  tries. 

I 

* 

.TITLE  SOFTWARE  TAPE  CONTROLLER/DRIVER 

» 

.CSECT  TAPEIO 

.SLOBL  INITAP,  STATAP,  SPCTAP,  REWTAP,  EOFTAP,  WRITAP ,  REDTAP 

0 

.HCALL  .REBDEF,  .PRINT 


133  IIMII 

,.V2.. 

136  818881 

.REBDEF 

137 

i 

138 

I 

139 

i 

148 

888881 

YES  =  1 

141 

177777 

NO  =  -l 

142 

888821 

TRPVEC  *  28  ; 

143 

* 

9 

144 

* 

9 

145 

e 

8 

146 

172528 

PITS  *  172528  ; 

147 

172522 

BTC  *  172522  | 

14S 

172524 

HT8RC  *  172524  ; 

149 

172526 

NTCHA  *  172526  ; 

158 

172538 

HTD  =  172538  ; 

151 

172532 

fITRD  *  172332  \ 

152 

172534 

HTQPT  *  172534  ; 

153 

172536 

MTV  =  172336  ; 

154 

• 

9 

155 

• 

9 

156 

1 

157 

\ 

HTC  BIT  SET/RESET  PATTERNS: 

158 

\ 

159 

888888 

3FLIN  *  * B0888 

168 

888182 

READ  *  *88818 

161 

888884 

WRITE  *  '*'88188 

162 

888886 

FILNRK  =  *88118 

163 

888818 

SPCFWD  *  *81888 

164 

888812 

SPCREV  *  *81818 

163 

388814 

EITN6P  *  *81188 

166 

388816 

REWIND  =  'B1118 

167 

168 

NTC  BIT  SET/RESET  PATTERNS: 

169 

178 

818888 

PCIR  *  18888  ; 

171 

172 

173 

174 

NTC  BIT  SET/RESET  PATTERNS: 

173 

STATUS  AODR 
CC.NHAND  AODR 
3YTE  CNTR  AODR 
CURRENT  BUFF  ADOR 
SATA  BUFFER 
READ  LINES 
EXT  FUNCT 

VECTOR  (=  224  l  PROTECTED  BY  PATCH  TO  HONITR.SYS) 
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174  168181 

177 

178 

179 

181  888281 

181 

182 

183 

184  888188 

183  888848 

186  888884 

187  888882 

188  888881 

189 

198 

DRVSTA  •  AB81 18888888888888;  9  TRACK,  NRZI,  ODD  PARITY,  888  BP! 

'Bmisammmi:  rs  denote  bits  not  uses  for 

DRVSTA  DEFINITION 

CURD  *  AB 13888888;  CONTROL  UNIT  READY 

NTS  BIT  SET/RESET  PATTERNS:  OCTAL-LSB  LAST 

SELR  *  188  ;  SELECT  REMOTE  (ON-LINE) 

BOT  *  48  ;  BEGINNING  OF  TAPE 

FPRO  *  4  ;  FILE  PROTECTED  (RIN6  OUT) 

RSTAT  *  2  ;  REMIND  STATUS 

TUR  =  1  ;  TAPE  UNIT  READY 

. ERRORS . . .  . 

191 

192 

NTS  BIT  SET/RESET  PATTERNS: 

QCTAL-LSB  LAST 

193 

194  188888 

ILLC  =  188888 

ILLEBAL  CONHAND 

193  848888 

EOF  *  48888 

END  OF  FILE  READ 

196 

;  *  2B8IB 

NOT  USED 

197  818888 

PAE  *  18888 

PARITY  ERROR 

198  884888 

BSL  *  4888 

BUS  6RANT  LATE’ 

199  882888 

EOT  =  2888 

END  QF  TAPE  REAO 

288  881888 

RLE  =  1888 

RECORD  LENGTH  ERROR 

281  888488 

BTE  *  488 

BAD  TAPE-DATA  DURIN6  6AP 

282  888288 

N!H  -  288 

NON-EI ISTENT  NEHORY 

283 

284 

NTC  BIT  SET/RESET  PATTERNS 

OCTAL-LSB  LAST 

283 

286  188888 

ERR  *  188888 

ERROR  CONDITION 

287 

288 

289 

218 

. MACRO  SOTAP 

211 

TSTB  NTC 

IS  NTC  READY  FOR  COHNAND? 

212 

3PL  .-4 

NO 

213 

INC  NTC 

YES,  SO  TAPE! 

214 

TSTB  NTC 

DONE  YEP 

215 

BPL  ,-4 

NO 

216 

.ENDN 

• 

217 

1 

218 

.MACRO  SPACE 

219 

NOV  INO,  NTBRC 

2'S  COMPLEMENT  OF  1  RECORD 

228 

NOVB  ISPCREV,  NTC 

SO  JACK  1  RECORD 

221 

SOTAP 

222 

TST  NTC 

SOCD  RETURN? 

223 

BN I  66) 

NO,  ERROR  OUT 

224 

NOV  INO,  NTBRC 

2’S  COMPLEMENT  OF  1  RECORD 

223 

NOVB  ISPCFMD,  NTC 

RECOVER  THE  GOOD  BACKSPACED  RECORD 

226 

SOTAP 

227 

54):  TST  NTC 

SCOD  RETURN? 

223 

.ENDN 

229 

• 

I 

238 

. MACRO  NNTSEL 

231 

NOV  I2(R3) ,  SCRAT8 

232 

CNP  18,  SCRAT8 

SCRAT8  HOLDS  MOUNT  NUNBER 
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•wv 

9LE  .*6 

IS  NOUNT  NBR  NEGATIVE? 

234 

I0T 

YES,  ERROR  RETURN 

215 

RTS  PC 

236 

CBP  14,  SCRAT8 

IS  NOUNT  NBR  LARGER  THAN  4? 

237 

BLE  .-19 

YES,  ERROR  RETURN 

238 

SWAB  SCRAT9 

i SHIFT  BOUNT  NBR  8  PLACES  LEFT 

239 

ADD  IDRVSTA,  SCRAT8;  TOTAL  nOUNT  DRIVE  STATUS 

248 

BOV  SCRAT8,  BTC 

241 

.ENDB 

242 

243 

. BACRO  EXPANSION  (UNDER  RACRO) . 

244 

245 

.LIST  HE 

246  MMSI 

60TAP 

88HM  185767  172522 

TSTB  BTC 

IS  BTC  READY  FOR  COWHAND? 

II9M4  188375 

BPl  .-4 

NO 

888816  885267  172522 

INC  BTC 

YES,  SO  TAPE! 

888112  185767  172522 

TSTB  BTC 

DONE  YET’ 

888816  189375 

BPl  .-4 

NO 

247 

248  898828 

SPACE 

889929  812767  177777  172524 

BOV  MO,  RTBRC 

2'S  CQBPLEBENT  OF  1  RECORD 

888926  112767  898812  172522 

ROVB  4SPCREV,  BTC 

SO  BACK  1  RECORD 

888834 

SOTAP 

888834  185767  172522 

TSTB  BTC 

IS  BTC  READY  FOR  COWHAND? 

888848  199375 

BPL  .-4 

NO 

888842  885267  172522 

INC  BTC 

YES,  60  TAPE! 

988846  185767  172522 

TSTB  BTC 

DONE  YET? 

899852  188375 

BPL  .-4 

NO 

888954  985767  172522 

TST  BTC 

SOOD  RETURN? 

898868  188416 

SHI  hit 

NO,  ERROR  OUT 

988862  812767  177777  172524 

NOV  INO,  BTBRC 

2'S  CQHPLEBENT  OF  l  RECORD 

898978  112767  888818  172522 

BOVB  ISPCFND,  BTC 

RECOVER  THE  600D  BACKSPACED  RECORD 

888976 

SOTAP 

888976  185767  172522 

TSTB  BTC 

IS  BTC  READY  FOR  COWHAND? 

888182  188375 

BPL  .-4 

NO 

888194  885267  172522 

INC  BTC 

YES,  SO  TAPE! 

888128  185767  172522 

TSTB  BTC 

DONE  YET? 

898114  189375 

9PL  .-4 

NO 

889116  885767  172522 

664:  TST  BTC 

SOOD  RETURN? 

249 

258  899122 

BNTSEL 

899122  917567  888992  892466 

BOV  82 (R5),  SCRAT9 

998138  822767  999888  992*468 

CBP  18,  SCRAT9 

SCRATB  HOLDS  BOUNT  NUBBER  '  * 

998136  883482 

BLE  .+6 

IS  BOUNT  NBR  NEGATIVE? 

881149  188896 

IOT 

YES,  ERROR  RETURN 

889142  899287 

RTS  PC 

999144  822767  999984  982444 

CBP  14,  SCRATB 

IS  BOUNT  NBR  LARGER  THAN  4? 

989152  883773 

BLE  .-19 

YES,  ERROR  RETURN 

988154  999367  982436 

SUAB  SCRATB 

; SHIFT  BOUNT  NBR  8  PLACES  LEFT 

888169  962767  9699H  992439 

ADD  IDRVSTA,  SCRATB;  TOTAL  BCUNT  DRIVE  STATUS 

999166  916767  992424  172522 

BOV  SCRATB,  BTC 

252 

.BUST  BE 

253 

254 

255 
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256 

• 

257 

0 

258  018174 

INITAP: 

1 

..CALL  INITAP  (IUNIT, J5NSTY,IPARTY,JSTATU).. 

259  101174 

111167 

082421 

NOV  Rl,  SCR  ATI 

; SAVE  Rl 

260  11121# 

012711 

000020 

NOV  8TRPVEC,  Rl 

SET  UP  TRAP 

281  110214 

112721 

102524' 

NOV  ITRPTLK,  (Rl)* 

282  000210 

012711 

080200 

NOV  1280,  (Rl) 

283  000214 

122715 

000014 

CHPB  84,  (R5) 

FOUR  AR6UHENTS? 

284  010221 

001123 

BNE  It 

NO,  FATAL  ERROR 

285  100222 

116511 

100018 

NOV  1S(RS) ,  Rl 

ADDRESS  OF  TOP  OF  STATUS  ARRAY 

288  100228 

012721 

080001 

NOV  IYES,  (Rl)* 

OKAY  STATUS,  SO  FAR 

287  010232 

022775 

001448 

108004 

CMP  1801.,  14 (R5) 

IS  388  BPI  SPECIFIED? 

288  810240 

881107 

BNE  34 

NO,  ERROR  RETURN 

289  100242 

022775 

880011 

000186 

CHP  01,  16 (RS) 

IS  PARITY  SPECIFIED  ODD? 

270  010250 

811103 

BNE  31 

NO,  ERROR  RETURN 

271  000252 

112767 

111010 

172522 

NOV  IPCLR,  NTC 

CLEAR  THE  CONTROL  UNIT 

272  010281 

NNTSEL 

273  001332 

132767 

808040 

172521 

BIT  0BOT,  NTS 

IS  TAPE  UNIT  AT  BOT  AND  ON  LINE? 

274  011340 

001431 

BED  44 

NO,  SEE  IF  TAPE  UNIT  IS  ON  LINE 

275  811342 

112721 

100001 

NOV  BYES,  (Rl)* 

TAPE  UNIT  IS  AT  BOT 

278  010348 

112721 

010801 

74: 

NOV  IYES,  (Rl)* 

TAPE  UNIT  IS  ON  LINE,  TOO 

277  110352 

132767 

110811 

172520 

BIT  ITtiR,  NTS 

IS  TAPE  UNIT  READY? 

278  800380 

001430 

8EQ  64 

NO,  SEE  IF  REMIND IN6 

279  001382 

112721 

880001 

NOV  8 YES,  (Rl) ♦ 

TAPE  UNIT  IS  READY 

281  801388 

012721 

177777 

NOV  INC,  (Rl)* 

NOT  REHIN0IN6  IF  READY 

281  101372 

132767 

808014 

172520 

BIT  4FPR0,  NTS 

IS  TAPE  WRITE  PROTECTED? 

282  000400 

081105 

BNE  54 

YES,  SAY  SO  AND  RETURN 

233  010402 

012711 

177777 

24: 

NOV  8NO,  (Rl) 

NOT  WRITE  PROTECTED 

284  008408 

816711 

182286 

234: 

NOV  SCRAT1.R1 

i RESTORE  Rl 

2S5  800412 

018217 

RTS  PC 

238  001414 

012711 

880001 

54: 

NOV  BYES,  (Rl) 

WRITE  PROTECTED 

237  000420 

010772 

BR  214 

238  000422 

112721 

177777 

44: 

NOV  8NO,  (Rl)* 

TAPE  IS  NOT  AT  BOT 

289  001428 

032767 

808100 

172520 

BIT  ISEIR,  NTS 

IS  TAPE  UNIT  ON  LINE? 

291  011454 

081344 

BNE  74 

YES,  SEE  IF  TAPE  UNIT  READY 

291  100438 

012721 

177777 

NOV  0NO,  (Rl)* 

TAPE  UNIT  NOT  ON  LINE 

292  810442 

012721 

177777 

41: 

NOV  INO,  !R1)+ 

TAPE  UNIT  NOT  READY 

293  000448 

032787 

800002 

172521 

BIT  IRSTAT,  NTS 

IS  TAPE  UNIT  IN  REWIND? 

294  000454 

101357 

BNE  54 

YES,  SAY  SC  ANO  RETURN 

295  008458 

001751 

BR  24 

298  011480 

012775 

177777 

080010  54; 

NOV  INO,  810 (R5) 

INITAP  CALLING  ERROR  RETURN 

297  001488 

000747 

BR  284 

298  081470 

000004 

14: 

IOT 

299  101472 

000745 

BR  214 

wIV 

311 

0 

302 

! 

503  000474 

STATAP: 

. . CALL  STATAP  ( IUNIT, ISTATU).. 

314  100474 

111167 

102120 

NOV  Rl.SCRATl 

; SAVE  Rl 

515  0005N 

122715 

818882 

CNPB  12,  IRS) 

TWO  ARSUHENTS? 

508  100504 

001177 

BNE  164 

NO,  FATAL  ERROR 

307  108508 

NNTSEL 

51S  181580 

016511 

080004 

NQV  4 (RS) ,  Rl 

ADDRESS  OF  STATUS  ARRAY  IN  Rl 

509  010584 

032787 

108800 

172520 

BIT  IILLC,  NTS 

IS  ILLC  ERROR? 

511  101572 

001427 

3ES  154 

NO,  CHECK  OTHER  ASPECTS 

311  018574 

012721 

088111 

NOV  IYES,  (Rl>* 

YES,  FIND  OUT  WHY 

512  800610 

032787 

080110 

172520 

BIT  ISELR,  NTS 

IS  UNIT  ON  LINE’ 
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313  000606 

801S33 

8EQ  17) 

NO,  HERE'S  THE  REASON 

314  101611 

012721 

000001 

MV  IVES,  (RD* 

31!  000614 

032767 

000200 

172322 

BIT  (CURD,  fITC 

IS  CONTROL  UNIT  READY? 

316  111622 

401523 

SEQ  17) 

M,  HERE'S  THE  REASON 

317  010624 

012721 

000001 

MV  BYES,  (Rl)  + 

310  100630 

016721 

172522 

MV  RTC,  (RD* 

;  RTC  IS  HERE  (FOR  DENSITY 

319  000634 

032767 

800004 

172520 

BIT  IFPRQ,  RTS 

;  IS  TAPE  FILE  PROTECTED? 

321  H4642 

101513 

BE8  17) 

;  NO 

321  010644 

012711 

080001 

HOV  I YES,  (Rl > 

322  HI6SI 

000316 

BR  20) 

323  011652 

012721 

177777 

IS):  HOV  0NO,  (RD* 

324  000636 

032767 

000200 

172520 

BIT  ININ,  RTS 

;  IS  NTH  ERROR? 

323  000664 

001403 

BEQ  1) 

;  M,  ROVE  ON 

326  000666 

012721 

000001 

MV  IYES,  (RD* 

327  000672 

000402 

BR  2) 

320  000674 

012721 

177777 

1):  MV  «M,  (Rl)* 

329  000700 

032767 

000400 

172520 

2):  BIT  *BTE,  RTS 

;  IS  BTE  ERROR? 

330  000706 

001403 

BEQ  3) 

;  NO,  HOVE  ON 

331  000710 

012721 

080081 

HOV  IYES,  (Rl>* 

J32  000714 

000402 

BR  4) 

333  000716 

012721 

177777 

3):  MV  IM,  (Rl)  + 

334  000722 

032767 

801000 

172520 

4):  BIT  IRLE,  RTS 

j  IS  RLE  ERROR? 

333  000730 

001403 

BEQ  5) 

;  NO,  ROVE  ON 

336  000732 

012721 

000001 

HOV  IYES,  (Rl)* 

337  000736 

000402 

BR  6) 

338  000740 

012721 

177777 

5):  HOV  IM,  (Rl)* 

339  000744 

032767 

002008 

172520 

6):  BIT  IEOT,  RTS 

;  IS  EOT  ERROR? 

340  000752 

001403 

BEfl  7) 

;  NO,  ROVE  ON 

341  000734 

012721 

080001 

HOV  IYES,  (Rl)* 

342  000760 

000402 

BR  3) 

343  000762 

012721 

177777 

71:  HOV  IM,  (Rl)* 

344  000766 

032767 

004000 

172520 

8):  BIT  IB6L,  RTS 

;  IS  3SL  ERROR? 

343  000774 

001403 

BEQ  9) 

;  NO,  ROVE  QN 

346  000776 

012721 

000001 

HOV  IYES,  (Rl)* 

347  001002 

000402 

BR  10) 

348  001004 

012721 

177777 

9):  MV  IMQ,  IRU  + 

349  801010 

032767 

018088 

172520 

10):  BIT  IPAE,  RTS 

i  IS  PAE  ERROR? 

350  001016 

001403 

BEQ  11) 

;  NO,  ROVE  QN 

331  001020 

012721 

000801 

ROV  IYES,  (RD* 

352  081024 

000402 

BR  12) 

353  001026 

012721 

177777 

11):  HOV  IM,  (Rl) ♦ 

354  001032 

032767 

840080 

172520 

121:  BIT  IEOF,  RTS 

;  IS  EOF  ERROR? 

353  001840 

881403 

BEQ  13) 

;  NO,  ROVE  ON 

356  001042 

012721 

080001 

ROV  IYES,  (Rl)* 

337  001046 

000402 

BR  14) 

358  001030 

012721 

177777 

131:  ROV  IM,  (Rl)* 

339  001034 

016721 

172328 

141:  ROV  RTS,  (RD* 

;  HERE'S  RTS 

360  001860 

016721 

172522 

ROV  RTC,  (Rl) + 

;  HERE'S  RTC 

361  001064 

016721 

172524 

ROV  RTBRC,  (RD* 

;  HERE  S  RTBRC 

362  001078 

816711 

172526 

ROV  RTCHA,  (RD 

;  HERE'S  RTCRA 

363  881074 

000404 

BR  20) 

364  001076 

012711 

177777 

17):  ROV  IM,  (Rl) 

365  001102 

008401 

BR  20) 

366  081104 

808004 

16):  IOT 

367  001186 

016701 

081506 

20):  ROV  SCRAT1,R1 

; RESTORE  Rl 

368  001112 

800207 

RTS  PC 
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370 

371 

172  811114  SPCTAP: 

..CALL  SPCTAP  ( IUNIT, ICQUNT, ISTATU) . . 

373  III 114  122713  818813 

CHPB  13,  (R5) 

THREE  AR6UHENTS? 

374  881121  881873 

9NE  1) 

NO,  FATAL  ERROR 

373  811122 

HNTSEL 

376  881174  817367  888884  881416 

NOV  !4(R5) ,  SCRATl 

SET  NUMBER  QF  RECORDS  TO  SKIP 

377  881282  112767  888812  172322 

MOVB  ISPCREV,  HTC 

ASSURE  REVERSE  SPACE 

378  881218  883767  881484 

TST  SCRATl 

FORWARD  OR  BACKWARDS? 

379  881214  188487 

BHI  34 

BACKWARDS 

388  881216  883167  881376 

con  SCRATl 

CALCULATE  2*3  COMPLEMENT  OF  FORWARD  COUNT 

381  881222  885267  881372 

INC  SCRATl 

382  881226  112767  888818  172S22 

MOVB  8SPCFWD,  NTC  ;  FORWARD  SPACE 

383  881234  816767  881368  172324 

3 4:  MOV  SCRATl,  NTBRC 

NUMBER  OF  RECORDS  TO  SKIP 

384  881242 

SOTAP 

383  881262  883767  172322 

TST  HTC 

DONE,  LOOK  FOR  ERROR  RETURN 

386  881266  188484 

BHI  24 

ERROR  RETURN 

387  881278  812773  888881  888886 

MOV  IYES,  86 (RS) 

SQOO  RETURN 

388  881276  888287 

RTS  PC 

389  881388  812773  177777  888886 

24:  MOV  INQ,  861RS) 

398  881386  888287 

RTS  PC 

391  881318  888884 

14:  I0T 

392  881312  888287 

RTS  PC 

393 

394 

395 

396  881314  REBTAP: 

..CALL  REBTAP  (IUNIT, ISTATU) 

397  881314  122715  888882 

CHPB  12,  (RS) 

TWO  ARBUHEMTS? 

398  881328  881833 

SNE  14 

NO,  ERROR  RETURN 

399  881322 

NNTSEL 

488  881374  112767  888816  172322 

ms  mum,  m 

SET  UP  REMIND 

481  881482 

SOTAP 

482  881422  085767  172522 

TST  NTC 

DONE,  LOCK  FOR  ERROR  RETURN 

403  881426  108404 

BHI  24 

ERROR 

404  801438  012773  800881  888884 

NOV  IYES,  84 (R5) 

5000  RETURN 

483  881436  088207 

RTS  PC 

406  881440  812773  177777  888884 

24:  NOV  INO,  94 (R5) 

487  081446  080287 

RTS  PC 

408  381438  888884 

14:  IQT 

409  801452  888207 

RTS  PC 

418 

411 

412 

413  081434  EQFTflP: 

. . CALL  EOFTAP  (IUNIT, ISTATU).. 

414  801454  122715  008002 

CHPB  12,  (RS) 

TWO  ARGUMENTS'1 

413  881468  081837 

BNE  14 

NO,  FATAL  ERROR 

416  881462 

NNTSEL 

417  081534  112767  080886  172522 

MOVB  IFILHRK,  HTC 

WRITE  EOF 

419  801342 

SOTAP 

419  081562  885767  172522 

TST  HTC 

DONE,  LOOK  FOR  EOF  ERROR 

428  001366  802810 

S6E  34 

NO  ERROR  IS  ERROR  RETURN 

421  881378  832767  840888  172328 

BIT  IE0F,  HTS 

IS  EOF  ERROR? 

422  881376  801484 

BEO  34 

NO,  ERROR  RETURN 

423  881608  012773  888801  880884 

HOV  IYES,  94 (R5) 

1  YES,  ASSURE  IT’S  THE  ONLY  ONE 

424  081606  388287 

RTS  PC 

423  081618  812773  177777  888884 

34:  HOV  INO,  14 (R5) 

j  ERROR  RETURN 

426  081616  080217 

RTS  PC 
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427  211629 
42S  191622 
429 

431 

888984 

989287 

11: 

IOT 

RTS  PC 

431 

432  191624 

IRITAP: 

..CALL  NRITAP  ( I'JNIT, IBKADR, IBYTS2 , ISTATU) . . 

433  111624 

122713 

899194 

CNPB  14,  (R5) 

FOUR  ARGUMENTS? 

434  191631 

991137 

BNE  14 

NO,  FATAL  ERROR 

433  191632 

NNTSEL 

436  991794 

912767 

998911 

919792 

NOV  49.,  RETRY 

B  TRIES 

437  191712 

112767 

999994 

172522 

74: 

NOVB  WRITE,  NTC 

SET  UP  WRITE 

438  991729 

922767 

898991 

989666 

CMP  ft,  RETRY 

8  TRIES  YET? 

439  981726 

991314 

BEQ  64 

YES,  WRITE  WITH  EXTENDED  SAP 

449  191739 

922767 

899991 

999636 

CMP  19,  RETRY 

EXTENDED  SAP  WRITE  STILL  FAILED? 

441  991736 

891394 

BEQ  34 

YES,  ERROR  RETURN 

442  991749 

916567 

899994 

172326 

54: 

NOV  4(R5),  NTCNA 

ADDRESS  OF  BUFFER  INTO  CNA 

443  191746 

917367 

998996 

899644 

NOV  86 (R3),  SCRAT1 

CALCULATE  2'S  COMPLEMENT  OF  COUNT 

444  991734 

895167 

989649 

CON  SCR ATI 

443  991769 

995267 

998634 

INC  SCRAT1 

446  981764 

916767 

888639 

172524 

NOV  SCRAT1,  NTBRC 

2'S  CON  INTO  BRC 

447  981772 

SOTAP 

448  982912 

985767 

172522 

TST  NTC 

DONE,  IS  ERROR  END? 

449  982916 

198494 

BN I  44 

YES,  ERROR  RETURN 

438  982829 

912775 

888191 

989911 

NOV  IYES,  B1KR5) 

GOOD  RETURN 

451  982826 

999287 

RTS  PC 

432  882838 

832767 

818989 

172528 

4$: 

BIT  IPAE,  NTS 

IS  PARITY  ERROR? 

433  892836 

981444 

BEQ  34 

NO,  ERROR  RETURN 

434  982849 

885367 

898559 

DEC  RETRY 

RESTART  AND  TRY  AGAIN 

455  292844 

SPACE 

456  882146 

199261 

BPL  74 

DONE,  SOOD  RETURN? 

457  892159 

812773 

177777 

899918 

34: 

NOV  INO,  919IR3) 

ERROR  RETURN 

458  982156 

989287 

RTS  PC 

459  982168 

112767 

988814 

172522 

64; 

NOVB  9EXTN6P ,  NTC 

SET  UP  EXTENDED  GAP  WRITE 

468  982166 

188664 

BR  54 

461  982179 

898994 

14: 

IOT 

462  992172 

4  L* 

988297 

RTS  PC 

’Qv 

464 

465 

466  982174 

1EDTAP: 

..CALL  REDTAP  (UNIT, IBKADR, IBYTSI, ISTATU).. 

467  892174 

122715 

888994 

CNPB  14,  (R51 

FOUR  ARGUMENTS? 

468  892228 

991147 

BNE  14 

NO.  FATAL  ERROR 

469  992282 

NNTSEL 

479  992254 

912767 

988919 

888332 

NOV  18.,  RETRY 

3  TRIES 

471  992262 

112767 

998992 

172522 

54: 

NOVB  IREAO,  NTC 

SET  UP  READ 

472  892279 

822767 

999999 

899316 

CAP  19,  RETRY 

3  TRIES  YET? 

473  982276 

981594 

SEQ  34 

YES,  ERROR  RETURN 

474  992389 

916567 

988814 

172526 

NOV  4 (R3> ,  NTCNA 

ADDRESS  OF  BUFFER  INTO  CNA 

475  992396 

917567 

999886 

899394 

NOV  16 (R5),  SCRAT1 

CALCULATE  2'S  COMPLEMENT  OF  COUNT 

476  992314 

895167 

898399 

CON  SCRAT1 

477  892328 

985267 

889274 

INC  SCRAT1 

478  882324 

916767 

888279 

172524 

NOV  SCRAT1,  NTBRC 

2'S  CONPLENENT  INTO  BRC 

479  882332 

GOTAP 

439  992352 

883767 

172522 

TST  NTC 

IS  ERROR  RETURN? 

481  892356 

189494 

5NI  44 

YES,  SEE  WHAT  KIND 

482  882369 

912773 

888811 

898919 

NOV  IYES,  9181R5) 

SOOD  RETURN 

483  882366 

889217 

RTS  PC 
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tape:: 


484  802373  032767  310390  172323 

485  902376  301444 

486  302400  305367  300210 

437  002404 

488  002506  100265 

489  002510  012775  177777  000810 

490  002516  000207 

491  302528  000084 

492  302522  000207 

493 

494 

495 

496  302524 

497  002532  080006 


41s  SIT  IPAE,  UTS 
3ES  3$ 

SEC  RETRY 
SPACE 
SPL  5* 

34:  ,10V  4NQ,  310  (R5> 
RTS  PC 
14:  IQT 
RTS  PC 


i  PARITY  ERROR? 

:  NO,  ERROR  RETURN 
:  SO  BACK  AND  RETRY 

i  SOOD  RETURN? 
i  ERROR  RETURN 


TRPTLK:  .PRINT  ITAUC 
RTT 


498 

499 

500 


501  002534 

040 

352 

352 

002537 

052 

352 

052 

002542 

186 

101 

124 

002545 

101 

114 

855 

002550 

111 

114 

114 

002553 

105 

107 

101 

302556 

114 

840 

103 

002561 

101 

114 

114 

332564 

040 

101 

122 

802567 

107 

125 

115 

002572 

105 

116 

124 

002575 

123 

055 

124 

302600 

101 

120 

10S 

002603 

111 

117 

052 

302606 

352 

952 

852 

832611 

052 

388 

502 

503  002614 


504  302616 

505  002620 
536 

587  388081 


TALK:  .ASCII  '  »m*fATAL-ILLEBAL  CALL  ARGUHENTS-TAPEIQ***** ' 


.EVEN 
RETRY:  .  BUCK 
SCRAT0:  .BLKN 
SCRAT1:  .BLKH 

•  END 
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C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

I* 


c 

r 


3332 

3303 

3334 


AZ3CAN. FOR 
Date  of  revision:  15-Qct-34 
PROGRAM  AZSCAN 


PURPOSE 

To  scan  a  tape  for  blocks  of  interest  within  a  user  specified 
azimuth  range. 


USAGE 

RUN  AZSCAN 


INPUT  PARAMETERS 


YEAR 

f,t,b 

RHOMIN 


STATS 


ALL 


NP.CHNL 

AZMIN 

AZMAX 

V ELM  IN 

VELMAX 

CVMAX 

START 

STOP 

BEYOND 

REWIND 


A  two  digit  integer 

Selects  F  array,  T  array,  or  Both  arrays 

Minimum  average  PREfiltered  correlation  coefficient  for 

blocks  of  interest  (default  0.6  if  T,  0.5  if  F) 

If  Y  is  entered,  statistics  will  be  printed  for  each 
block  of  interest 

If  Y  is  entered,  data  for  all  blocks  in  range  will 
be  printed.  Otherwise,  only  the  first  and  last. 

Number  of  channels  in  array  (default  4) 

Minimum  value  of  acimuth  range  (0.  <  AZMIN  <  360.) 
Maximum  va.ue  of  acimuth  range  (0.  <  AZMAX  <  360.) 
Minimum  value  of  velocity  range  (default  250.) 

Maximum  value  of  velocity  range  (default  730.) 

Maximum  value  of  velocity  variance  (default  13000.) 
Integer  vaiue  of  first  block  to  be  scanned 


-  Integer  value  cf  last  block  to  be  scanned 


If  Y  is  entered,  another  scan  is  permitted 

If  Y  is  entered,  tape  is  -ewound  and  another  scan  is 

permi tted 


REMARKS 

When  the  acimuth  range  includes  763.  degrees,  it  is  acceptable 
to  enter  a  value  of  AZMIN  that  is  larger  than  AZMAX,  i.e. 

AZMIN =345.  and  AIMAX=2S.  covers  the  range  including  363.  degrees 


LIBRARIES  REQUIRED 
REDL I B , MACL I S 


METHOD 

The  program  scans  the  trailer  data  of  the  tape  starting  at  START. 
If  the  value  of  RHO  is  greater  than  RHOMIN  then  the  program  checfs 
to  see  if  the  signal  is  within  the  soecified  acimuth  range.  If  so. 
the  analysis  data  (and  statistics  if  requested)  are  printed.  When 
the  last  block  (STOP)  is  read,  the  average  values  of  the  analysis 
data  are  printed.  The  program  then  allows  for  another  scan. 


COMMON  /  M T 3 L  Y,  /  I DNSTY  ,  I P  ART  Y  ,  I  STATU  ( 1  2 ! 

DIMENSION  IWKSPC  (2730)  ,  I.MPONG  (2730) 

COMMON  /TRAIL:/  IMIPING  (2530)  ,  FVELOC  .  FAZ  IMF  .  FVEVAR  ,  FAZVAR ,  IFSTAT, 
CFMU ! 4 ) .FPSI (4) ,FPH0(6) , IFMAX ( 4) , IFMIN i 4) , FF5PQX , FRHOVX , FVELOX , 
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IFAZIMX ,FVEVAX ,FAZVAX , TVELQC, TAZIMF, TVEVAR, TAZVAR, ITS TAT, TMU ( 4) , 
C  TPS  I (4) , TRHO ( 6 ) , ITMAX ( 4) , ITM IN ( 4  > , FTSPQX , TRHQVX , TVELOX ,  TAZ I  MX , 
(TVEVAX , TAZVAX 

0005  DIMENSION  IHEADR (20) , IHEAD1 (20) 

0006  DIMENSION  FS IGMA ( 4) , TS ISMA ( 4 ) 

0007  EQUIVALENCE  ( IMPING ( 1 ), IMPONG  ( 1 ) ) 

C 

0008  DATA  IZERO/0/,FQUR/lHF/, THREE/ 1HT/,8QTH/1H8/ 

0009  DATA  XNO/1HN/ , YES/ 1HY/ , INQ/-1/ , I  YES/1/ , ZERO/0. / 

0010  DATA  I'JNIT/00/,  IDNSTY/S00/  ,  I  PARTY  / 1  /  ,  IREV/-1/ 

C . 

c 

C  Program  and  mag  tape  initialization  area. 

C 

0011  100  TYPE  10 

0012  TYPE  193 

0013  ACCEPT  19 , JYEAR 

C 

0014  102  CALL  MTINIT ( IUNIT) 

0015  IF  ( I  STATU ( 1 )  .LT.  0)  STOP 

C 

0017  110  IGFLAG  =  INQ 

001S  ISTATU (8)  =  INO 

0019  TYPE  13 

0020  ACCEPT  12, ARRNBR 

C 

0021  TYPE  IS 

0022  ACCEPT  1 4 , RHQMIN 

0023  IF  (RHOMIN  . NE.  0.)  SO  TO  111 

0025  IF  (ARRNSR  .EQ.  THREE)  RHQMIN=0.6 

3027  IF  (ARRNBR  .EQ.  FOUR)  RHOMIN=0.5 

0029  IF  ((ARRNBR  .NE.  THREE)  .AND.  (ARRNBR  .NE.  FOUR))  50  TO  110 

3031  111  TYPE  16 

0332  ACCEPT  12, STATS 

0033  TYPE  13 

3034  ACCEPT  12, ALL 

3035  INRDIF  =  6  . 

3336  TYPE  171 

3037  ACCEPT  1 9 , NRCHNL 

3033  IF  (NRCHNL  .EQ.  3)  INRDIF  =  3 

0340  FNRDIF  =  FLOAT ( INRDIF) 

C . 

c 

C  Average  values  initialization  area 
C 

0041  TYPE  177 

0042  ACCEPT  173,  AZMIN, AZMAX 

0043  TYPE  179 

0044  ACCEPT  173,  VELM IN , VELMAX 

0345  IF  (VELM IN  .EQ.  0.)  VELMIN=250. 

0047  IF  (VELMAX  .EQ.  0.)  VELMAX=700. 

0049  TYPE  1791 

0050  ACCEPT  1 79 , CVMAX 

0051  IF  (CVMAX  .EQ.  0.)  CVMAXM0000. 
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0055 

0254 

0055 

0057 

0058 

0059 

0060 

0061 

0062 

0063 

0064 

0065 

0066 

0067 

0063 

0369 

0070 

0071 

0072 

0073 

0074 


PRINT  176,AZHIN,AZHAX , V ELM  IN, VELMA X ,CVMAX 
AZMINP=AZMIN 

IF  ( AZNIN. GT . AZMAX )  A Z « I N = A Z M I N - 3 6 0 - 

ITNUM*0 

IFNUH*0 

TSET=0. 

FSET =0. 

TRT=0. 

FRTs0. 

TAZT»0. 

FAZT=0. 

TCZT=0. 

FCZT=0. 

TVT  *0. 

FVTa0. 

TCVT=0. 

FCVT=0. 

TORT =0. 

FDRTa0. 

TMDRTa0. 

FMDRT =0. 


C. . . . 

c 

c 

Tape  read  and  average  values  calculation  < 

0075 

L 

2130 

TYPE  193 

0076 

ACCEPT  19 ,  ISTART , ISTOP 

0077 

IF  (ISTART  .EQ.  0>  ISTART  =  1 

0079 

IF  (ISTOP  .EQ.  0)  ISTOP  *  10000 

0081 

ISTOPR  =  ISTOP  +  1 

0032 

L 

DO  243,1  =  2531,2730 

0083 

243 

IMP ING ( I )  =  0 

0034 

201 

CALL  REDTAP ( IUN I T, IMPING, INRBYT, I STATU) 

0085 

IF  ( I STATU ( 1 )  .GT.  0)  GO  TO  205 

0387 

CALL  MTSTAT ( IUNIT) 

0083 

IF  ( I STATU ( 8 )  .GT.  0)  GO  TO  208 

0090 

GO  TO  201 

0391 

205 

IF  ( IMPING (2)  .EQ.  ISTART)  GO  TO  220 

0093 

IFWD  =  ISTART  -  IMPINS (2) 

0094 

IFWD  »  IFWD  -  1 

0095 

IF  (IFWD  .EQ.  0)  GO  TO  201 

0097 

CALL  SPCTAP  (IUNIT, IFWD,  I  STATU) 

0098 

IF  ( I STATU ( 1 )  .LT.  0)  CALL  MTSTAT  ( IUNIT) 

0100 

GO  TO  201 

0101 

U 

220 

IF  ( IMPING (2)  .LE.  ISTOPR)  GO  TO  204 

0103 

L 

239 

I HEADR ( 2) =0 

0104 

IHEADl  (2) =0 

0105 

IH8KNR  =  0 

0106 

IF  ( ARRNBR. EQ. FOUR )  SO  TO  221 
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0108 

0110 

0111 

0112 

0113 

0114 

0115 

0116 

0118 

0119 

0120 

0122 

0124 

0125 

0126 

0127 

0128 

0129 

0130 

0132 

0133 

8134 

0135 

0136 

0137 

0139 

0140 

0141 

0143 

0144 

8146 

0147 

0M8 

8150 

0131 

0153 

0154 

0156 

8158 

0160 

0161 

0162 

0163 

0164 

0165 


IF  ( ITNUM  .EQ.  0)  GO  TO  221 
TNUN=FLOAT ( ITNUH) 

TSET* 128. / (TSET/TNUH) 

TCZT=TCZT/TNUN 
TCVT=TCVT/TNUN 
TDRT*TDRT / TNUM 
TAZT=TAZT/TNUN 

IF  (TAZT  .IT.  0.0)  TAZT  =  TAZT  +  360. 

TVT=TVT/TNUM 

PRINT  175, ITNUM, TSET , TRT , TDRT , TRDRT , TAZT, TCZT , TVT , TCVT 

221  IF  (ARRNBR.EQ. THREE)  GO  TO  222 
IF  (IFNUM  .EQ.  0)  SO  TO  222 
FNUM=FLOAT ( I FNUM ) 

FSET=512./ (FSET/FNUN) 

FCZT=FCZT/FNUN 

FCVT=FCVT /FNUM 
FDRT=FDRT/FNUH 
FAZT=FAZT /FNUM 

IF  (FAZT  .LT.  0.0)  FAZT  =  FAZT  +  360. 

FVT=FVT/FNUH 

PRINT  175, IFNUM, FSET.FRT, FORT, FNDRT, FAZT, FCZT , FVT , FCVT 
C 

222  PAUSE  '  ***D0NE***' 

C 

TYPE  151 

ACCEPT  12,  BEYOND 

IF  (BEYOND  .EQ.  YES)  SO  TO  110 

TYPE  150 

ACCEPT  12,  REWIND 

IF  (REWIND  .ME.  YES)  CALL  EXIT 

CALL  REWTAP  ( IUNIT, ISTATU) 

IF  (ISTATU  C 1 1  .LT.  0)  CALL  NTSTAT ( IUNIT) 

GO  TO  110 
C 

284  CALL  REDTAP ( IUNIT, IWKSPC, INR8YT, ISTATU) 

IF  ( ISTATU  ( 1 )  .GT.  0)  GO  TO  211 
CALL  NTSTAT ( IUNIT) 

IF  ( ISTATU (8!  .GT.  0i  SO  TO  208 

30  TO  284 
r 

w 

211  IF  ( IWKSPC  ( 2 )  . ME.  INPING (2) )  SO  TO  214 
IF  ( IWKSPC  (4)  .NE.  IMPING (4) )  GO  TO  214 
IF  (ALL  .EQ.  YES)  TYPE  1 7 , IMPING  (2) 

C 

209  DO  217,1  =  1,2730 
217  IMPING ( I )  =  IWKSPC ( I ) 

IGFLAG  *  INO 
GO  TO  204 
C 

214  IGFLAG  =  IYES 

IF  ( INPING (2)  .GT.  ISTOPR)  GO  TO  208 
C . 
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3167 

C 

3 

00 

DO  301,1  =  1,20 

0168 

IHEADR(I)  -  IHEADKI) 

0169 

J 

81 

IHEADl(I)  «  IMPING ( I > 

3178 

IF  ( IHEAOR (16)  .ST.  0)  IHBKNR  =  IHEADR (2) 

0172 

r 

IF  ( IHEAOR (2)  .IT.  ISTART)  SO  TO  209 

0174 

L 

3 

49 

FRHOVS  =  0. 

0175 

DO  302,1  =  1 , INRDIF 

0176 

3 

02 

FRHOVS  =  FRHOVB  +  FRHO(I) 

0177 

p 

FRHOVG  =  FRHOVS/FNRD  IF 

0178 

L 

DO  304,1  *  1,4 

0179 

FSIGHA(I)  =  FPS 1(1) **2  -  FNU(I)**2 

3130 

IF  (FSIGHA(I)  .LT.  0.)  FSIGMA(I)  =  0. 

0182 

3 

p 

04 

FSIGMA(I)  =  SORT (FSIGHA ( I ) ) 

0183 

L 

TRHOVS  =  0. 

0184 

DO  303,1  =  1,4 

0185 

TSISMA ( I )  =  TPS  1(1) **2  -  TMU ( I ) **2 

0186 

IF  (TSIGHA(I)  .LT.  0.)  TSIBHA(I)  =  0. 

0138 

T 

w 

p 

03 

TSIGHA ( I )  =  SORT (TSIGMA(I) ) 

0189 

U 

DO  305,1  =  1, INRDIF 

0190 

■J 

05 

TRHOVG  =  TRHOVG  ♦  TRHO(I) 

0191 

TRHOVG  =  TRHOVG/FNRDIF 

0192 

TRODIF  =  TRHOVX  -  TRHOVG 

0193 

FRODIF  =  FRHOVX  -  FRHOVG 

0194 

c. 

IF  (ARRN8R  .£ 0.  FOUR)  SO  TO  605 

c 

c 

p 

T  array  signal  detection  area 

0196 

L 

IF  (TRHOVG  .LT.  RHOMIN)  GO  TO  605 

0198 

IF  (TVELQX  .LT.  VELMIN)  GO  TO  605 

0200 

IF  (TVELQX  .ST.  VELMAX)  GO  TO  605 

0202 

IF  (TVEVAX  .GT.  CVNAX)  GO  TO  605 

0204 

TAZ IMY=TAZ IMX 

3205 

IF  (  ( AZMIN.LT. 0. ) .AND. (TAZ I MX. GT. AZMI NP) ) 

3207 

p 

IF  ( (TAZIMY.LT. AZHIN) .OR. (TAZ IMY. GT. AZMAX 

0209 

L 

9 

IIBKNR  =  IHEADR (2) 

0210 

JDAY  *  IHEADR (3) 

0211 

JHOUR  =  IHEADR (4) 

0212 

JSEC  *  IHEADR (5) 

0213 

IERRTO  =  IHEADR (17) 

0214 

IZERON  =  IHEADR (18) 

0215 

IOVRNG  =  IHEADR (19) 

0216 

IUNDRN  =  IHEADR (20) 

0217 

JFLAG  =  I  ZERO 

3213 

CALL  RTCLOK  (JFLAG, AMONTH, JDAY, JHOUR, JMIN 

0219 

p 

IPFLAG  =  INO 

0220 

w 

IF  (ALL  .EQ.  YES)  GO  TO  651 

PASE  325 


SO  TO  605 


vVV%y» 


B 


I 

I 
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0222 

0224 

0226 

0227 


0229 

0230 

0231 

0232 

0233 

0234 

0235 

0236 

0237 

0238 

3239 

0240 

0242 

0243 

0244 

0245 

0246 

0247 

0249 


0250 

0251 

0252 

0253 

0254 

0255 

0256 

0257 

025? 

3261 


IF  ( IHEAOR (2)  .EQ.  ISTART)  60  TQ  651 
IF  ( IHEADR (2)  .EQ.  I  STOP)  SO  TO  651 
SO  TO  653 

651  IF  (STATS  .NE.  YES)  60  TQ  610 
C 

PRINT  197, II8KNR, IERRTQ, IZERON, IOVRNS, IUNDRN 
IF  (ITSTAT  -  0)  601,604,606 
601  PRINT  180, THREE 
60  TO  604 

606  PRINT  198 , JDAY , AMONTH, JYEAR, JHOUR, JNIN, JSEC 
IPFLAG  *  I  YES 

PRINT  183 , IHEADR (2) , ZERO , TAZVAR ,TVEVAR , TAZ IMF , TVEIOC , TRHQVS , TROD  I F 
604  PRINT  181, THREE, TRHO 
DO  611,1  =  1,4 
111=1+3 

611  PRINT  185,111, ITMAX (I) , ITHIN(I) ,TMU(Ii , TPS  I ( I) , T5IQMA  ( I ) 

C 

610  IF  ((STATS  .NE.  YES) . AND. (TRODIF. IT. 0. ) )  60  TO  605 
IF  ( FTSPQX  -  0.)  612,613,614 

612  PRINT  192, THREE 
GO  TO  605 

613  PRINT  130 
GO  TO  605 

614  IF  (IPFLAG  .LT.  0)  PRINT  198 , JDAY , AMONTH , J YEAR , JHOUR , JM I N , JSEC 
630  PRINT  183, IHEADR (2) , FTSPQX, TAZ VAX, TVEVAX ,TAZIMX,TVELOX, 

\  TRHOVX, TRODIF 
C 

653  ITNUM=ITNUM+1 

TSET=TSET +123. /FTSPQX 
TCZT=TCZT+TAZVAX 
TCVT=TCVT +TVEVAX 
TDRT=TDRT*TROD!F 
TAZT=TAZT+TAZIMY 
TVT  =  TVT +TVELOX 

IF  (TRT.LT. TRHOVX)  TRT=TRHQVX 
IF  (TMDRT.LT. TRODIF)  TMDRT  =  TROD I F 
r 

635  IF  (ARRNSR  .EQ.  THREE)  50  TO  28? 


C 

C  F  array  signal  detection  area 
C 

0263  I DUM  =  IHEADR (2)  -  3 

0264  IF  ( IOUM  .LE.  IHBKNR)  SO  TO  239 

0266  IF  (FRHOVG  .LT.  RHQMIN)  SO  TO  289 

0268  IF  (FVELOX  .LT.  VELMIN)  60  TO  20? 

0270  IF  (FVELOX  .ST.  VELMAX)  GO  TO  209 

0272  IF  ( FVEVAX  .GT.  CVMAX)  GO  TQ  209 

0274  FAZ IMY=FAZ IMX 

0275  IF  ( (AZHIN.LT. 0) .AND. (FAZIMX. ST. AZMINP) )  FAZ IMY=FAZ IMX-360. 

3277  IF  (  (FAZIMY.LT.  AZMIN)  .OR.  (FAZIMY. ST. AZMAX) '>  50  TO  209 

C 

0279  IIBKNR  =  IHEADR (2) 

0280  JDAY  =  IHEADR (3) 
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0231  JHOUR  *  IHEADR (4) 

0282  JSEC  =  IHEADR 1 5 ) 

0283  IERRTQ  *  IHEADR (17) 

0284  IZERON  *  IHEADR (18) 

0283  IOVRN6  »  IHEADR (19) 

0286  IUNDRN  *  IHEADR (20) 

0287  JFLAS  *  I  ZERO 

0288  CALL  RTCLQK  (JFLAS, AMONTH, JDAY, JHOUR, JMIN. JSEC) 

0289  IPFLAS  =  I  NO 

C 

0290  IF  (ALL  .EQ.  YES)  SO  TO  634 

0292  IF  ( IHEADR (2)  .EQ.  ISTART)  GO  TO  654 

029*  IF  ( IHEADR (2)  .EQ.  ISTOP)  GO  TO  654 

0296  SO  TO  656 

0297  654  IF  (STATS  .N£.  YES)  GO  TO  615 

C 

0299  PRINT  197, I IBKNR, IERRTO, IZERON, I07RNG, IUNDRN 

0300  632  IF  ( IFSTAT  -  0)  607,602,608 

0301  607  PRINT  180, FOUR 

0302  GO  TO  602 

0303  608  PRINT  198 ,  JDAY , AMONTH, J YEAR , JHOUR , JMIN , JSEC 

0304  IPFLAG  =  I  YES 

0305  631  PRINT  192, IDUM, IHEADR(2) , ZERO, FAZVAR , FVEVAR , FAZ IMF , 

!<  FVELQC  ,FRHQV6  ,FRODIF 

0306  602  PRINT  181 .FOUR, FRHO 

0307  DO  616,1  =  1,4 

0308  111=1-1 

0309  616  PRINT  135 , 1 1 1 , IFNAX ( I ) , IFMIN ( I ) , FMU ( I) , FPS I ( I )  , FSIGMA ( I ) 

C 

0310  615  IF  ((STATS  .NE.  YES) . AND .  ! FRODI F . LT . 3 . ) )  GO  TO  209 

0312  IF  (FFSPQX  -  0)  617,613,619 

0313  617  PRINT  192, FOUR 

0314  GO  TO  209 

0315  613  PRINT  180, FOUR 

0316  30  TO  209 

0317  619  IF  (IPFLAG  .LT.  0)  PRINT  1 93 . JDAY . AMONTH . J YEAR , JHOUR . JMIN , JSEC 

0319  PRINT  132, IDUM, IHEADR ( 2 ) , FFSPQX, FAZVAX , FVEVAX , FAZ IMX , 

4  FVELOX  ,  FRH07X ,  FRO D I F 

0320  656  IFNUM=IFN'JM  +  1 

0321  F5ET=FSET+512. /FF3PQX 

0322  FCZT=FCZT+FAZVAX 

0323  FCVT=FCVT ♦FVEVAX 

0324  FDRT=FDRT+FRODIF 

0325  FAZT=FAZT+FAZ IMY 

9326  FVT=FVT*FVELQX 

0327  IF  (FRT. LT . FRHQVX )  FRT=FRHOVX 

0329  IF  (FMDRT. LT. FRODIF)  FMDRT=FRODIF 

0331  30  TO  209 

C . 

c 

C  FORMATS  area 

C 

0332  10  FORMAT  (/,'  AZSCAN  Rev  11.3) 

0333  12  FORMAT  (Al) 


«l 
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0334 

13 

FORMAT 

f  •  F,T  or  B?  '  ,4) 

0335 

14 

FORMAT 

(F6.2! 

0336 

IS 

FORMAT 

('  All?  '  ,4) 

0337 

150 

FORMAT 

(‘  Rewind  tape  ?  (otherwise  EXIT*  >  ',4) 

0338 

151 

FORMAT 

('  Continue  in  this  file  on  tape?  ' , 4 ) 

0339 

16 

FORMAT 

(  '  Statistics"1  ,4) 

0340 

17 

FORMAT 

('  BAD  Block,  t '  ,15) 

0341 

171 

FORMAT 

('  Nuaber  of  channels?  ',4) 

0342 

175 

FORMAT 

('  ',14, 'SIS  SE',F5.1,3X, 'MAXR',F4.2,2X, 

!,  ' MAXDR '  ,  F4. 2, 3X ,  'AZ'  ,  F4 . 0 ,  '  CZ  '  ,F4. 0,3X  ,  '  V  '  tF4. 0,  '  C 

176  FORMAT  (///,'  Aziauth  Min:',F5.0,'  Max:',F5.0, 

i  /,'  Velocity  Min:',F5.0,'  Max:  '  ,F5.0/ '  CVMAX :  ' , F3. 1 ) 

177  FORMAT  ('  Aziauth  MIN, MAX:  '4) 

173  FORMAT  (2F6.2) 

179  FORMAT  ('  Velocity  MIN, MAX:  '4) 

791  FORMAT  ( ’  CVMAX?  ' ,1) 

13  FORMAT  (  ’  Mini aua  RHQ?  '  ,4) 

180  FORMAT  ('  ' ,A1,3X, '***INVAL1D  ANALYSIS1!***') 

181  FORMAT  C  ' , A 1 , 3X , 6F5. 2 ) 

132  FORMAT  ('  F ' , 1 5 , '  to ' , 15 , 12X , F5. 1 , 2F6. 0 , 2F3. 3 , 4X  , 

&  ' ( ' , F4. 2, ' ) ' , F6. 2) 

133  FORMAT  ('  T ' , 15 , 20X ,F5. 1 , 2F6. 0, 2F7. 3, 6X , ' ( ' , F4. 2 , ' ) ' , F6 . 2 ) 

185  FORMAT  < '  ' , 1 1 , 216 , 3F7.  I ) 

19  FORMAT  (216) 

190  FORMAT  ( '  Start, Stop:  ’ ,4) 

192  FORMAT  ('  ' ,A1,3X, '♦**  INVALID  FILTER  1 1 ♦**  ' ) 

193  FORMAT  ('  Year?  ',$) 


1791  FORMAT  ( 
13  FORMAT  ( 

180  FORMAT  ( 

181  FORMAT  ( 
132  FORMAT  ( 


192  FORMAT  ('  ' , A 1 , 3 X 

193  FORMAT  ('  Year?  ' 
197  FORMAT  ('0#',5I6> 


193  FORMAT  ('  0  NBA', 13,'-', A3, '-',12, 14,  :',I2,'  ' ,  12 , ' "UT . ' > 


500  STOP 
END 


4“ 
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1 

2 

3 

4 
3 
6 
7 

a 

9 

11 

11 

12 

13 

14 

13  Niin 

la  099116 


;*»**♦***♦»♦«  CLEAR. MAC  »hh«*«m*«h»»mh««mh«mmi«m 
.TITLE  CLEAR 

DATE  OF  REVISION:  7-APR-84 
PURPOSE 

TO  CLEAR  GRAPHICS  AND  ALPHANUNERIC  DATA  FRON  THE  SCREEN  AND 
RETURN  THE  TERMINAL  TO  THE  ADH-3A  MODE. 

USA6E 
R  CLEAR 


.HCALL  . PRINT, .EXIT 
CLEAR:  .PRINT  IBUFF 
.EXIT 


; SEND  CONTROL  CHARACTERS 


17  990111 

137 

133 

087  BUFF:  .BYTE 

118113 

177 

141 

111 

809916 

137 

133 

014 

998921 

031 

Ml 

13 

.EVEN 

19 

IIMIt 

.END 

-  15 
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LPINIT.HAC  *m***m«*tm**mmt*mMmm*M*«* 

DATE  QF  REVISION:  7-APR-B4 
.TITLE  LPINIT 
PURPOSE 

TO  INITIALIZE  THE  LINE  PRINTER 

USA6E 

R  LPINIT 

INPUT  PARANETERS 
NONE 

REMARKS 

THE  LINE  PRINTER  IS  INITIALIZED  SUCH  THAT  IT  IS  AT  THE  TOP 
QF  FORM,  PRINTING  SIX  LINES  PER  INCH  AND  TWELVE  CHARACTERS 
PER  INCH,  WITH  A  ONE  INCH  LEFT  MARGIN  AND  A  ONE  INCH  SKIP 
OVER  THE  PERFORATION.  BE  SURE  THAT  THE  PAPER  IS  SET  AT  THE 
TOP  QF  FORK  BEFORE  RUNNIN6  LPINIT.  THIS  CONFIGURATION  WILL 
ALLOW  34  CHARACTERS  TO  BE  PRINTED  ON  ONE  LINE. 

METHOD 

THE  APPROPRIATE  CONTROL  CHARACTERS  AND  ESCAPE  SEQUENCES  ARE 
PASSED  TO  THE  PRINTER 


:a 

..1C  ALL 

.CLOSE,. ENTER., 

.EXIT, .FETCH,. PRINT,  .WRITW 

29  330830 

812785 

880128' 

LPINIT: 

NOV 

4LPNAHE.R5 

: SET  DEVICE  NAHE 

38  888884 

.FETCH 

IHSPACE,  R5 

:5ET  DEVICE  HANDLER 

71  888814 

183443 

3CS 

FERR 

.•BRANCH  IF  ERROR 

32  188816 

812784 

888288' 

NOV 

IAREA.R4 

;6ET  ARSUHENT  BLOCK 

33  888822 

312783 

388881 

NOV 

11,  R3 

;SET  CHANNEL  MUMBER 

74  388826 

.ENTER 

R4,R3,R5 

iOPEN  CHANNEL 

35  888844 

183427 

8C3 

FERR 

; BRANCH  IF  ERROR 

36  380846 

. WRITW 

R4,R3,l8UFF,i5 

,R3  : OUTPUT  CONTROL  CODES 

77  388184 

133413 

BCS 

*ERR 

; BRANCH  IF  ERROR 

73  338136 

.CLOSE 

R3 

: CLOSE  CHANNEL 

7?  308116 

.EXIT 

48  888128 

846008 

LPNAHE: 

•RAD58 

11?  1 

: DEVICE  NAME 

41  888122 

888888 

.WORD 

8 

42  888124 

FERR: 

•PRINT 

IFNSB 

; SEND  ERROR  NE5SA6E 

43  888132 

.EXIT 

44  388134 

4ERR: 

.PRINT 

8WMS6 

; SEND  ERROR  NESSAGE 

45  888142 

.EXIT 

46  888144 

833 

138 

333 

BUFF: 

.BYTE 

33,188,33,113.' 

77. 116,6,33, 154, 14 

888147 

115 

833 

116 

388152 

386 

333 

154 

888155 

814 

47  888156 

877 

114 

128 

FMS6: 

■ASCII 

/■’LP.SYS?/ 

388161 

856 

123 

131 

388164 

'  123 

377 

888 

48  388167 

077 

127 

1  •'*1 

4 

HMSG: 

. ASCI Z 

/"•WRITE?/ 

288172 

111 

124 

135 

388175 

077 

380 

49 

.EVEN 

58  NTN 

AREA: 

.  BLKW 

18 

; ARGUMENT  BLOCK 

LP14  MACRO  V03.02815-QCT-B4  89:31:12  RASE  l 


Lf-U 


Kf 


s 

s 


a 


& 

,N? 


* 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 
11 
12 

13 

14 

15 
14 

17 

18 
19 
28 
21 
•n 


HlHHHHt  LP16.  MAC  *hhmh*h*hhhmm»h«h«»**h*«h» 

DATE  OF  REVISION:  28-MAY-84 
.TITLE  LP16 


24 

25 

26 
27 


PURPOSE 

TO  SET  UP  THE  LINE  PRINTER  FOR  16CPI  PRINTING 


USAGE 
R  LP16 


INPUT  PARAMETERS 
NONE 


REMARKS 

THE  LINE  PRINTER  IS  INITIALIZED  SUCH  THAT  IT  IS  AT  THE  TOP 
OF  FORM,  PRINTING  SIX  LINES  PER  INCH  AND  SIXTEEN  CHARACTERS 
PER  INCH,  NITH  A  ONE  INCH  LEFT  MARGIN.  BE  SURE  THAT  THE 
PAPER  IS  SET  AT  THE  TOP  OF  FORM  BEFORE  RUNNIN6  LP16.  THIS 
CONFIGURATION  KILL  ALLCN  128  CHARACTERS  TO  BE  PRINTED  ON 
ONE  LINE. 


METHOD 

THE  APPROPRIATE  CONTROL  CHARACTERS  AND  ESCAPE  SEQUENCES  ARE 
PASSED  TO  THE  PRINTER 


28 

.MCALL 

. CLOSE, . ENTER , . EXIT, . FETCH, . PRINT, . HRITH 

29  008888 

012705 

080120' 

LP16: 

MOV 

8LPNAME,R5 

GET  DEVICE  NAME 

30  080804 

.FETCH 

IHSPACE,R5 

SET  DEVICE  HANDLER 

31  800814 

103443 

BCS 

FERR 

BRANCH  IF  ERROR 

32  0008 16 

012784 

080174- 

MOV 

IAREA ,R4 

SET  AR6UMENT  BLOCK 

33  000822 

012703 

800881 

MOV 

11,  R3 

SET  CHANNEL  NUMBER 

34  880026 

.ENTER 

R4,R3,R5 

OPEN  CHANNEL 

35  000044 

103427 

BCS 

FERR 

BRANCH  IF  ERROR 

36  000846 

.HRITH 

R4,R3,8BUFF,»3,R3 

OUTPUT  CONTROL  CODES 

37  880184 

183413 

BCS 

HERR 

BRANCH  IF  ERROR 

33  800106 

•CLOSE 

R3 

CLOSE  CHANNEL 

39  880116 

.EXIT 

48  888128 

046608 

LPNAME: 

.RAQ5B 

/LP  / 

DEVICE  NAME 

41  888122 

888888 

.  HQRD 

8 

42  888124 

FERR: 

.PRINT 

8FMSS 

SEND  ERROR  MESSA6E 

43  088132 

.EXIT 

44  880134 

HERR: 

.PRINT 

IHMSG 

;  SEND  ERROR  MESSAGE 

45  080142 

.EXIT 

46  080144 

033 

100 

017 

BUFF: 

.  BYTE 

33,108,17,33,154.20 

880147 

033 

154 

028 

47  808152 

077 

114 

128 

FMSG: 

.ASCII 

/7LP.SYS?/ 

008155 

056 

123 

131 

088160 

123 

077 

008 

48  088163 

077 

127 

122 

HMSS: 

.ASCII 

rHRITE?/ 

880166 

111 

124 

IBS 

000171 

077 

000 

49 

.EVEN 

58  188174 

AREA: 

.BLKM 

10 

; ARGUMENT  BLOCK 

51 

000214- 

HSPACE* 

, 

52 

088888* 

.END 

LP16 
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C*+*****+++*+**  MTINIT.FOR  ♦***♦♦**♦*♦**♦♦*♦*♦**♦♦*♦*♦*♦*♦*♦ 
C 

C  Date  of  revision:  19-May-34 
C 

0001  SUBROUTINE  MTINIT ( IUNIT) 

C 

C  PURPOSE 

C  To  initialize  the  tape  transport 

C 

C  USAGE 

C  CALL  MTINIT ( IUNIT) 

C 

C  DESCRIPTION  OF  PARAMETERS 

C  IUNIT  -  The  tape  drive  to  be  initialized  (usually  0) 

C 

0002  COMMON  /MT8LK/  I DNSTY , I  PARTY , I  STATU ( 1 2 ) 

0003  DATA  YES/ 1 H Y / 

0004  GO  TO  20 

0005  10  PAUSE  '  I N I  TAP  Failed  to  initialize'  <CR>' 

3006  20  CALL  I N I  TAP  ( I  UN  I T , I DNSTY , IPARTY , I  STATU i 

0307  IF  ( I  STATU  ( 1 )  .LT.  0)  TYPE  111 

0009  IF  (ISTATUm  .LT.  0)  GO  TO  10 

0011  IF  ( ISTATU (2)  .GT.  0)  GO  TO  30 

0013  IF  ( ISTATU (3)  .LT.  0)  TYPE  112 

0015  IF  ( ISTATU  (3)  .LT.  0)  GO  TO  10 

0017  TYPE  113 

3018  30  IF  ( ISTATU (2)  .GT.  0)  TYPE  114 

3020  IF  ( ISTATU ( 4 )  .GT.  0)  SO  TO  40 

3022  TYPE  115 

0323  IF  ( ISTATU (5)  .GT.  0)  TYPE  116 

0025  GO  TO  10 

3326  40  TYPE  117 

0027  IF  ( ISTATU  (6)  .GT.  0)  TYPE  113 

3029  IF  ( ISTATU (6)  .LT.  0)  TYPE  119 

0331  ACCEPT  120,  ANSWER 

3032  IF  (ANSWER  .EQ.  YES)  GO  TO  20 

0034  IF  ( ISTATU ( 6 )  .GT.  3)  RETURN 

3036  TYPE  121 

0037  ACCEPT  123,  ANSWER 

0333  IF  (ANSWER  .NE.  YES)  RETURN 

0340  50  CALL  EOFTAP  ( IUNIT, ISTATU) 

0041  IF  ( ISTATU ( 1 )  .GT.  0)  GO  TO  60 

0043  TYPE  122 

0044-  CALL  MTSTAT (IUNIT) 

0345  RETURN 

0046  60  TYPE  123 

0047  ACCEPT  123,  ANSWER 

0048  IF  (ANSWER  .EQ.  YES)  GO  TO  50 

0053  RETURN 

C 

C  FORMATS  area 
C 

3051  111  FORMAT  ('  ERROR  on  INITAP  return  (CALL  arguments) ' *) 

0052  112  FORMAT  C  Tape  unit  is  NOT  ON  LINE’’,!) 


FORTRAN  IV  V02.1-1  Man  lS-Qct-34  33:23:  08  PAGE  332 

3353  113  FORMAT  !'  Tape  unit  is  ON  LINE  but  tape  is  NOT  at  BOT'',l) 

0054  1  14  FORMAT  ('  Tape  unit  is  ON  LINE  and  tape  is  at  BOT1',!.' 

3055  115  FORMAT  ('  Tape  unit  is  NOT  ready!',!) 

3056  116  FORMAT  ('  Tape  is  rewinding  (or  loading  f orwar d )  1  '  ,  * > 

3057  117  FORMAT  C  Tape  unit  is  ready1', I! 

0358  118  FORMAT  ('  Tape  is  WRITE  PROTECTED  (ring  is  QUT)-do  you  want  to  rei 

Initialize  ?  .  Y  or  N>  '  ,  I ) 

3059  1  19  FORMAT  ('  Tape  is  NOT  write  protected  (ring  is  I N > -do  you  want  to 

Ireinitial ize?  <Y  or  N>  ',!) 

3060  120  FORMAT  (Al) 

0061  121  FORMAT  (’  Do  you  want  an  lamediate  EOF  (end  of  file)  to  precede  th 

ie  data?  <Y  or  N>  ’ ,#) 

0062  122  FORMAT  C  ERROR  an  EQFTAP  return1',!) 

0063  123  FORMAT  ('  Do  you  want  another  EOF  on  this  tape7  iY  or  N>  ',!) 

3064  E N D 
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Date  of  revision:  19-May-34 
SUBROUTINE  ilTSTAT  ( I  UN  I T ) 

PURPOSE 

To  determine  the  error  status  of  the  tape  transport 
USAGE 

CALL  MTSTAT ( IUNIT) 

DESCRIPTION  OF  PARAMETERS 

IUNIT  -  The  tape  transport  whose  status  is  to  be  determined 


3222 

COMMON  /MTBLK/ 

IDNSTY, IPARTY,  I 

0003 

DATA  YES/1HY/ 

3324 

CALL  STATAP  (IUNIT 

.ISTATU) 

2305 

IF 

( I STATU ( 8 ) 

.GT. 

0) 

GO  TO 

33 

3307 

IF 

( I STATU  < 1 ) 

.GT. 

3) 

GO  TO 

12 

0029 

IF 

( ISTATU ( 2) 

.GT. 

0) 

TYPE 

1 1 1 

0211 

IF 

( ISTATU (3) 

.GT. 

3) 

TYPE 

112 

3013 

IF 

( ISTATU ( 4 ) 

.GT. 

2) 

TYPE 

113 

0315 

IF 

( ISTATU ( 5 ) 

.GT. 

3) 

TYPE 

114 

0017 

IF 

( ISTATU (6) 

.GT. 

0) 

TYPE 

115 

3319 

IF 

( ISTATU (7) 

.GT. 

0) 

TYPE 

116 

3021 

TYPE  117,  ( I STATU (K)  , 

K  =  9 ,  1 

2) 

0322 

RETURN 

0023 

13  I STATU ( 1 )  =  INO 

3324 

TYF 

E  113 

TYPE  119,  I  STATU  1  2 i 
IF  ( I  STATU  !  3 )  .GT.  1 
TYPE  122 
RETURN 

IF  (  I  STATU  C  4 )  .LT.  ! 

RETURN 

TYPE  122 

I  STATU ( 1 )  =  I  YES 
RETURN 


FORMAT  ( ’ 
I  FORMAT  (  ' 
!  FORMAT  ( ’ 
1  FORMAT  ( ' 
!  FORMAT  ( ' 
>  FORMAT  ( ‘ 
r  FORMAT  ( * 
Inal y sis, ’ 
I/,  '  MTCMA 
I  FORMAT  ( * 
)  FORMAT  (' 
!  FORMAT  (' 
.  FORMAT  ( ' 
!  FORMAT  (  ' 
END 


NXM  bit  set:  no  memory  response''.!) 

BTE  bit  set:  character  during  gap  shut  down1',!) 

RLE  bit  set:  tape  record  :s  longer  than  specified1',!) 
EOT  bit  set:  end  of  tape  encoun t er ed ' ' , I ) 

3GL  bit  set:  BUS  too  slow  r espondi ng ' ‘ , I ) 

PAE  bit  set:  UNABLE  to  recover  parity  error!', I) 

The  following  OCTAL  values  are  given  to  aid  in  trouble  a 
MTS  =  ',06,/,'  MTC  =  ',06,/,'  MTBRC  =  ',06, 

=  ’,06,1) 

ILLC  bit  set:  ILLEGAL  command-here  is  why:',l) 

MTC  =  '  ,06,  '  (OCTAL) ' ,$) 

SELR  =  I  NO :  tape  unit  is  NOT  ON  LINE1',!) 

CURD  =  INO:  control  unit  is  NOT  ready1', li 
EOF  (end-of-f i 1 e)  encountered '', I) 
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•  444444444444  REWIND.  nAC  444444444444444444444444444444444444444444444 


.TITLE  REMIND 


s 

1 

DATE  OF  REVISION:  7-AFR-94 

6 

7 

! 

PURPOSE 

« 

9 

1 

TO  REMIND  THE  TAPE  ON  UNIT  HTI: 

9 

18 

i 

» 

USA6E 

11 

1 

R  REMIND 

12 

i 

13 

. ttCALL 

•EXIT, .PRINT 

14 

068888 

DRVSTA 

-  60088 

15 

088816 

REM 

=  16 

16 

172522 

HTC 

=  172522 

17  eaaeea 

812767 

068989 

172522 

REMIND: 

HQV 

IDRVSTA.HTC 

; SET  UP  UNIT  9 

18  980886 

112767 

888816 

172522 

HQVB 

*REM,HTC 

; SET  UP  TO  REMIND 

19  888914 

185767 

172522 

TSTB 

HTC 

;  IS  HTC  READY  FOR  COHHAND? 

* 

2a  808028 

188375 

BPL 

.-4 

;  NO 

21  888822 

085267 

172522 

INC 

HTC 

; YES,  SO  TAPE 

22  888826 

185767 

172522 

TSTB 

HTC 

iDQNE  YET? 

23  898832 

198375 

BPL 

.-4 

;NQ 

24  888834 

885767 

172522 

TST 

HTC 

; YES,  TEST  FOR  ERROR  RETURN 

25  888848 

100481 

8HI 

14 

a* 

26  988842 

.EXIT 

27  888844 

1#: 

.PRINT 

MSS 

;SEND  ERROR  HESSA6E 

29  898852 

•EXIT 

29  888854 

877 

122 

195 

NSG: 

.ASCII 

/'’REMIND  ERROR’' 

888857 

127 

111 

116 

088862 

184 

840 

185 

IS 

888965 

122 

122 

117 

889878 

122 

877 

088 

38 

.EVEN 

31 

880888' 

.END 

REMIND 

W 
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0001 


[♦*♦♦♦♦♦♦♦♦♦♦  RPTSCN. FOR 
C 

C  Date  of  revision:  10-Qct-84 


t******************************************** 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

r 


c 

c 

c 

c 

c 

c 

r 


0002 

0003 


PROGRAM  RPTSCN 


PURPOSE 

To  scan  a  tape  far  blocks  of  interest,  and  produce  an  output  in 
the  fora  of  a  data  aessage 


USAGE 

RUN  RPTSCN 


INPUT  PARAMETERS 


YEAR 

JULIAN 

MONTH 

DATE 

TIME 

SERIAL 

INF  NR 

F,T,B 


5099) 


two  digit  integer 
three  digit  integer  julian  day 
three  letter  aonth  abbreviation 
two  digit  integer  date  of  aonth 
four  digit  integer 
four  digit  integer  (5000  <  SERIAL 
four  digit  integer 

Selects  F  array,  T  array,  or  Both  arrays 
RHGMIN  -  Mmiaua  average  PREfiltered  correlation  coefficient  for 
blocks  of  interest  (default  0.6  if  T,  0.5  if  F) 

NRCHNL  -  Nuaber  of  channels  in  array  (default  ♦  ) 

SKIP  PARAMS  -  Parameters  of  blocks  selected  by  AZSCAN  that  are 
not  to  be  listed  individually  in  the  report 
START  -  Integer  value  of  first  block  from  AZSCAN 
STOP  -  Integer  value  of  last  block  from  AZSCAN 

-  Real  value  of  minimum  acimuth  from  AZSCAN 

-  Real  value  of  maximum  acimuth  from  AZSCAN 

-  Real  value  of  minimum  .elocity  from  AZSCAN 

-  Real  value  of  maximum  .elocity  from  AZSCAN 

-  Integer  value  of  first  block  to  be  scanned 

-  Integer  value  of  last  block  to  be  scanned 


AZMIN 
AZMAX 
VELMIN 
VELMAX 
START 
STOP 


3EYQND  -  If  Y  is  entered,  another  scan  is  permitted 
REWIND  -  If  Y  is  entered,  tape  is  rewound  and  another  scan  is 
permitted 


REMARKS 

To  prepare  a  data  message,  first  the  T  array  should  be  scanned, 
then  the  F  array  should  be  scanned.  The  resulting  file  should  be 
appropriately  edited  and  then  one  tape  and  two  text  copies  should 
be  made.  The  tape  and  one  text  coo/  should  be  delivered  to  CGMS. 


LIBRARIES  REQUIRED 
REDLI8,MACLI8 


METHOD 

The  program  is  similiar  to  SCAN  and  AZSCAN  except  for  output 
format.  The  output  is  written  to  logical  unit  19. 


COMMON  IBK3EG (20)  ,I3KFIN(20) ,AZMIN(20) , AZMAX (20) 
COMMON  /MT8LK/  IDNSTY, IPARTY, I5TATU ( 12) 
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DIMENSION  VELMIN ( 20) , VELMAX (2B> , IWKSPC (2733) , IMP0N6 (2730) 

COMMON  /TRAILY/  IMP  INS (2530) , FVELQC . FAZ IMF , FVEVAR , FA2 VAR , IFSTAT , 
CFMU(4>,FPSI(4) ,FRHO (6)  , IFMAX ( 4) , IFMIN(4) ,FFSPQX .FRHOVX .FVELOX , 
{FAZIMX ,FVEVAX , FAZVAX , TVELQC , TAZ IMF , TVEVAR , TAZVAR , ITSTAT , TMU ( 4) , 
(TPS I (4)  , TRHO (6) , ITMAX ( 4 ) , ITM IN ( 4 ) , FTSPQX , TRHOVX , TVELQX , TAZ I  MX  , 
(TVEVAX ,TAZVAX 

DIMENSION  I HEA  DR  <  20 ) , I  HE ADI (23) 

DIMENSION  FS IGMA ( 4 ) ,  TS I GMA ( 4 ) 

LOGICAL*!  ICHAR!80> , ICHRCR , ICHRBK , ICHRLF.ICR 
EQUIVALENCE  ( IMPING (1 !, IMPONS  ( l ) ) 

C 

DATA  ICHRCR/ “137/, ICHRBK/ “45/, ICHRLF/" 12/, ICR/ "15/ 

DATA  I  ZERO/0/, FOUR/ 1HF/, THREE/ IHT/, BOTH/ 1HB/ .LINCNT/80/ 

DATA  XN0/1HN/,YES/1HY/,IN0/-1/,IYES/1/,ILINE/1/ 

DATA  IUNIT/00/, IDNSTY/800/, IPARTY/ 1/ , IREV/-1/ , IILINE/0/ 

C . . . 

c 

C  Program  and  mag  tape  initialization  area. 

C 

3014  100  TYPE  10 

3015  TYPE  193 

0016  ACCEPT  19 , JYEAR 

0017  TYPE  172 

0318  ACCEPT  19, JULIAN 

0019  TYPE  173 

3020  ACCEPT  191,BM0NTH 

3021  TYPE  174 

0022  ACCEPT  19, MDATE 

0023  TYPE  175 

0024  ACCEPT  1 9 , MT IME 

0025  TYPE  176 

0026  ACCEPT  19 , NRSER 

0027  TYPE  177 

0023  ACCEPT  19, INFNR 

C 

0029  102  CALL  MTINIT ( I  UN  IT) 

0030  IF  ( I  STATU  ( l )  .NE.  IYES)  STOP 

C 

3332  PAUSE  '  Insert  message  disk' 

0033  WRITE  (19,130)  ICR 

0334  IF  (MTIME  ,.LT.  1000)  GO  TO  104 

3036  IF  (JULIAN  .GE.  130)  WRITE  (19,2181)  NRSER , JULIAN , MT IME , ICR 

3038  IF  (JULIAN  .GE.  100)  GO  TO  103 

0040  IF  (JULIAN  .GE.  10)  WRITE  (19,2231!  NRSER, JULIAN, MTIME, ICR 

0042  IF  (JULIAN  .GE.  10)  GO  TO  103 

3344  WRITE  (19,2381)  NRSER, JULIAN, MTIME, ICP 

3045  103  IF  (MDATE  .GE.  10) 

St  WRITE  (19,2139)  ICR, MDATE, MTIME , BMONTH, JYEAR, ICR 
0047  IF  (MDATE  .LT.  10) 

St  WRITE  (19,2289)  ICR , MDATE , MT  IME  ,  BMONTH  ,  JYEAR , ICR 

3049  GO  TO  106 

3050  134  IF  (JULIAN  .GE.  100)  WRITE  (19,2481)  NRSER, JULIAN, MTIME, ICR 

0052  IF  (JULIAN  .GE.  100)  GO  TO  105 

0054  IF  (JULIAN  .GE.  10)  WRITE  (19,2581)  NRSER , JULI AN , MT IME , I CR 


0004 

3305 


0006 

3007 

0008 

0009 

0010 

0011 

3012 

0013 
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3356 

3038 

3359 

3361 

3362 
0364 

3363 

3066 

0367 

0063 

0069 

3070 

0071 

0073 

0075 

0077 

0079 

0080 

0081 

0092 

0094 

0085 

3086 

0087 

0088 

0039 

0390 

0091 

0093 

0095 

0097 


3098 

0099 

0100 

3101 

3103 

0135 

0107 

0108 

0109 

0110 


IF  (JULIAN  , GE.  10)  SO  TO  105 

WRITE  (  19,2681)  NRSER, JULIAN, MTIME,  ICR 

105  IF  (MOATE  .GE.  10) 

&  WRITE  (19,2389)  ICR , MDATE , MT IME , BMONTH , J YEAR ,  ICR 
IF  (MDATE  .LT.  10) 

*  WRITE  (19,2439)  ICR, MDATE, MTIME, BMONTH, JYEAR, ICR 

106  WRITE  (19,182)  ICR, ICR 

WRITE  (19,133)  ICR, ICR, JYEAR, INFNR, ICR, ICR 
WRITE  (19,134)  JYEAR, INFNR, ICR 
C 

110  IGFLAS  =  INO 
TYPE  13 

ACCEPT  12 , ARRN8R 
C 

TYPE  13 

ACCEPT  14,RH0MIN 
IF  (RHOMIN  . NE.  0.)  GO  TO  111 
IF  ( ARRNBR  .EQ.  THREE)  RHOMIN=0.6 
IF  (ARRNBR  .EQ.  FOUR)  RHQMIN=0.5 

IF  ((ARRNBR  .NE.  THREE)  .AND.  (ARRNBR  .NE.  FOUR))  GO  TO  110 

111  INRDIF  =  6 
TYPE  171 

ACCEPT  19 ,NRCHNL 

IF  (NRCHNL  .EQ.  3)  INRDIF  =  3 

FNRDIF  =  FLOAT ( INRDIF) 

C 

KSKIP  =  -1 

115  KSKIP  =  KSKIP  +  1 
I  *  KSKIP  ♦  1 
ILINE  =  ILINE  ♦  1 
TYPE  16 

ACCEPT  161 ,  IBKBES(I) , IBKFINCI ) ,AZMIN(I) ,AZMAX(I), 
i  VELMIN ( I ) , 7ELMAX ( I ) 

IF  (VELMIN ( I )  .EQ.  0.)  VELMIN ( I ) =250. 

IF  ( VELMAX ( I )  .EQ.  0.)  VELMAX ( I ) =700. 

IF  (IBKBEG(I)  .NE.  0!  GO  TO  115 
ILINE  =  ILINE  -  l 
C 

C . 

c 

C  Taps  read  area 
C 

200  TYPE  190 

ACCEPT  19, ISTART, ISTOP 
I ISTRT=1 

IF  (ARRNBR  .NE.  THREE)  IISTRT=4 
IF  (ISTART  .EQ.  0)  ISTART  =  IISTRT 
IF  (ISTOP  .EQ.  0)  ISTOP  =  10000 
ISTOP  =  ISTOP  +  1 
C 

DO  243,1  =  2531,2730 
243  IMPING ( I ) =0 
C 

209  IF  ( IGFLAG  .EQ.  IYES)  GO  TO  201 
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CALL  REDTAPIIUNIT, IMPING, INRBYT , ISTATU) 
IF  ( ISTATU ( 1 )  .EQ.  I  YES)  SO  TO  205 
CALL  MTSTAT ( IUNIT) 

IF  (ARRNBR  .EQ.  THREE)  GO  TO  202 


0113 

IF  ( ISTATU ( 8 ) 

.EQ. 

IYES)  ILINE  =  ILINE  +  1 

0120 

202 

IF  < ISTATU (8) 

.EQ. 

IYES)  GO  TO  208 

0122 

p 

GO  TO  209 

0123 

w 

205 

IF  ( IMPING (2) 

.EQ. 

ISTART)  GO  TO  220 

0125 

IFWD  *  ISTART 

-  IMPING (2) 

0126 

IFWD  =  IFWD  - 

1 

0127 

IF  (IFWD  .EQ. 

0)  GO 

i  TO  209 

0129 

CALL  SPCTAP  (IUNIT, 

IFWD,  ISTATU) 

0130 

IF  ( ISTATU ( 1 ) 

.EQ. 

INO)  CALL  MTSTAT (IUNIT) 

0132 

P 

GO  TO  209 

0133 

L 

220 

p 

IF  ( IMPING (2) 

.LE. 

ISTOP)  GO  TO  204 

0135 

it 

208 

PAUSE  '  DONE,  < 

CR>  to  continue  ***  DO 

0136 

IHEADR (2)  =  0 

0137 

IHEADK2)  =  0 

0138 

P 

IH8KNR  =  0 

0139 

L 

TYPE  151 

0140 

0141 

0143 

0144 

0145 

0147 

0148 

0150 

0151 

0152 

0154 

0155 

0157 

0159 

0161 


204 


206 


ACCEPT  12,  BEYOND 

IF  (BEYOND  .EQ.  YES)  GO  TO  110 

TYPE  15 

ACCEPT  12,  REWIND 

IF  (REWIND  . N£.  YES)  -GO  TO  700 

CALL  REWTAP  ( IUNIT , ISTATU) 

IF  ( ISTATU ( 1 )  .EQ.  INO)  CALL  MTSTAT ( UNIT) 
GO  TO  110 

CALL  REDTAP (IUNIT, IWKSPC, INRBYT, ISTATU) 

IF  ( ISTATU ( 1 )  .EQ.  I  YES)  GO  TO  211 
CALL  MTSTAT (IUNIT) 

IF  (ARRNBR  .EQ.  THREE)  GO  TO  206 
IF  ( ISTATU ( 8 )  .EQ.  I  YES )  ILINE  =  ILINE  +  1 
IF  ( ISTATU (8)  .EQ.  r YES)  GO  TO  208 
GO  TO  204 


0162  21  1  IF  ( IWKSPC ( 2 )  .NE.  IMPING  (2) )  GO  TO  214 

0164  IF  ( IWKSPC  (4)  .NE.  IMPING  ( 4) )  GO  TO  214 

C 

0166  201  DO  217,1  =  1,2730 

0167  217  IMPING  ( I )  =  IWKSPC(I) 

0168  IGFLAG  =  INO 

0169  GO  TO  204 


0170  214  IGFLAG  =  IYES 

0171  IF  ( IMPING (2)  .GT,  ISTOP)  GO  TO  208 


Tapa  block  setup  area 


26  - 


AlfTVcAJ 


FORTRAN  IV 

V02.1-1  Mon  15-Qct-34  08:37:09 

0173 

C 

300 

DO  301,1  =  1,20 

0174 

' 

IHEADR ( I )  =  IHEADl(I) 

0175 

301 

IHEADl(I)  =  IMPING  ( I ) 

0176 

r 

IF  ( IHEADR (16)  .EQ.  IYES)  IHBKNR  =  IHEADR (2) 

0178 

FRHOVG  =  0. 

0179 

DO  302,1  =  1 , INRDIF 

0180 

302 

FRHOVG  =  FRHOVG  +  FRHQ(I) 

0181 

FRHOVG  =  FRHOVG/FNRD IF 

0182 

L 

TRHOVG  =  0. 

0183 

DO  303,1  =  1, INRDIF 

0134 

303 

TRHOVG  =  TRHOVG  ♦  TRHQ  ( I ) 

0135 

TRHOVG  =  TRHOVG/FNROIF 

0186 

TRODIF  =  TRHOVX  -  TRHOVG 

0187 

r 

FRODIF  =  FRHOVX  -  FRHOVG 

0183 

w 

IF  ( IHEADR (2)  .GE.  ISTART)  GO  TO  600 

0190 

c. . . . 

GO  TO  209 

c 

c 

c 

0191  600 

0193 

0195 

C 

0196  602 

0197 
3198 
0199 


T  array  signal  detection  area 

IF  (TRHOVG  .GE.  RHQMIM)  GO  TO  602 
IF  (FRHQVG  .GE.  RHGMIN)  GO  TO  602 
GO  TO  209 

II8KNR  *  IHEADR (2) 

JDAY  =  IHEAOR (3) 

JHOUR  =  IHEADR (4) 

JSEC  =  IHEADR (5) 
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0200 

0201 

0202 

0203 

0204 

0205 

0207 

0209 

0211 

0213 

0215 

0216 

0218 

0219 

0220 

0222 

0223 

0225 

0227 


JFLAG  =  I  ZERO 

CALL  RTCLQK  (JFLAG, AMONTH, JDAY , JHOUR ,JMIN , JSEC) 

KDAY  =  ICHQQZ (JDAY) 

JTIME  =  JHOUR  *  100  +  JHIN 
KTIME  =  ICHOOZ  ( JTIflE) 

IF  (ARRNBR  .EQ.  FOUR)  GO  TO  605 
IF  ( TRHOVG  ,LT.  RHOMIN)  GO  TO  605 
IF  (TRODIF  .LT.  0.)  GO  TO  605 

IF  (TVELOX  .LT.  250.)  GO  TO  605 

IF  (TVELQX  .GT.  700.)  GO  TO  605 

KSFLAG  *  INO 

IF  (KSKIP  .LE.  0)  GO  TO  604 
DO  606  1=1, KSKIP 
AZMI NP  =  AZMIN(I) 

IF  (AZHIN(I)  .GT.  AZflAX  ( I ) )  AZHINP  =  AZMIN(I)  -  360. 

T  A  Z  I  MY  =  T  A  Z I M  X 

IF  (( AZMINP.LT. 0.). AND. (TAZIMX.GT. AZMIN ( I) ) )  TAZIMY=TAZIMY-360. 
IF  ( I I8KNR  .LT.  IBKBEG ( I ) )  GO  TO  606 

IF  (IIBKNR  .GT.  IBKFIN(I))  GO  TO  606 
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0229 

IF  (TVELQX  .IT.  VELHIN(I>>  SO  TO  606 

0231 

IF  (TVELQX  .GT.  VELMAX ( I ) )  GO  TO  606 

0233 

IF  (TAZINY  .LT.  AZMINP)  GO  TO  606 

0235 

IF  (TAZIMY  .GT.  AZMAX 1 1 ) >  GO  TO  606 

0237 

KSFLA6  =  I  YES 

0238 

606 

CONTINUE 

0239 

p 

IF  (KSFLAG  .EQ.  IYES)  GO  TO  605 

0241 

L 

604 

ITSPQX  =  IRQUND (FTSPQX ) 

0242 

KTSPQX  *  ICHOOZ ( ITSPQX) 

0243 

KIBKNR  »  ICHOOZ ( I IBKNR) 

0244 

ITAZ  *  IROUND (TAZIMX) 

0245 

KTAZ  =>  ICHOOZ (ITAZ) 

0246 

ITCZ  *  IROUND ( TAZVAX ) 

0247 

KTCZ  =  ICHOOZ (ITCZ) 

0248 

I  TV  =  IROUND ( TVELOX ) 

0249 

I T  C V  =  IROUND (TVEVAX) 

0250 

KTCV  =  ICHOOZ  ( ITCV) 

0251 

ILINE  =  ILINE  >  1 

0252 

IILINE  =  IILINE  ♦  1 

0253 

p 

KLINE  *  ICHOOZ ( ILINE) 

0254 

c 

IF  (KLINE  -  0)  610,611,612 

0255 

610 

WRITE  (18,401)  ILINE, THREE 

0256 

GO  TO  613 

0257 

611 

WRITE  (18,402)  ILINE, THREE 

0258 

GO  TO  613 

0259 

612 

WRITE  (18,403)  ILINE, THREE 

0260 

613 

IF  (KTIflE  .GT.  1)  SO  TO  614 

0262 

IF  CKTIME  -  0)  6131,6132,6133 

0263 

6131 

WRITE  (13,404)  JTIME 

0264 

GO  TO  615 

0265 

6132 

WRITE  113,4041)  JTIME 

0266 

GO  TO  615 

0267 

6  1  j 

WRITE  (18,4042)  JTIME 

0268 

GO  TO  615 

0269 

314 

WRITE  (18,405)  JTIME 

0270 

615 

IF  ( KDAY  -  0)  616,617,617 

0271 

616 

WRITE  (13,406)  J  DAY , AMQNTH 

0272 

GO  TO  618 

0273 

617 

WRITE  (13,407)  JDAY , AMONTH 

0274 

618 

IF  (KIBKNR  -  0)  619,620,621 

0275 

619 

WRITE  (  18,408)  I  IBKNR 

0276 

GO  TO  623 

0277 

620 

WRITE  (18,409)  IIBKNR 

0278 

GO  TO  623 

0279 

621 

IF  (KIBKNR  .EQ.  2)  GO  TO  622 

0281 

WRITE  (18,410)  IIBKNR 

0232 

GO  TO  623 

0283 

622 

WRITE  (18,411)  IIBKNR 

0234 

623 

IF  (KTSPQX  -  0)  624,625,626 

0285 

624 

WRITE  (18,412)  ITSPQX, TRHQVX , TRODIF 

0286 

GO  TO  627 

0287 

625 

WRITE  (19,413)  ITSPQX, TRHOVX, TRODIF 
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0288 

GO  TO  627 

0289 

626 

WRITE  (18,414)  ITSPOX ,TRHQVX .TRODIF 

0290 

627 

IF  (KTAZ  -  0)  628,629,630 

0291 

628 

WRITE  (18,415)  ITAZ 

0292 

GO  TO  631 

0293 

629 

WRITE  (18,416)  ITAZ 

0294 

GO  TO  631 

0295 

630 

WRITE  (18,417)  ITAZ 

0296 

631 

IF  (KTCZ  -  0)  632,633,634 

0297 

632 

WRITE  (18,418)  ITCZ.ITV 

0298 

GO  TO  635 

0299 

633 

WRITE  (18,419)  ITCZ.ITV 

0300 

GO  TO  635 

0301 

634 

WRITE  (18,420)  ITCZ.ITV 

0302 

635 

IF  (KTCV  -  0)  636,637,638 

0303 

636 

WRITE  (18,421)  ITCV 

0304 

GO  TO  608 

0303 

637 

WRITE  (18,422)  ITCV 

0306 

GO  TO  608 

0307 

638 

IF  (KTCV  .EQ.  2)  GO  TO  639 

0309 

WRITE  (18,423)  ITCV 

0310 

60  TO  608 

0311 

639 

f 

WRITE  (13,424)  ITCV 

0312 

L 

608 

IF  (IlINE  . LT.  LINCNT)  GO  TO  605 

0314 

INFNRM  =  INFNR 

0315 

ILINE  =  ILINE  +  1 

0316 

NRSER  *  NRSER  ♦  1 

0317 

INFNR  =  INFNR  +  1 

0318 

MTIME  =  MTIME  *  10 

0319 

I ILINE  =  I ILINE  ♦  15 

0320 

LINCNT  =  LINCNT  +  90 

0321 

WRITE  (13,1135)  NRSER 

0322 

WRITE  (18,1180) 

0323 

IF  (MTIME  .LT.  1000)  GO  TO  6104 

0325 

IF  (JULIAN  .GE.  100)  WRITE  (19,1131)  S! 

0327 

IF  (JULIAN  .GE.  100)  GO  TO  6103 

0329 

IF  (JULIAN  .GE.  10)  WRITE  (13,1231)  N? 

0331 

IF  (JULIAN  .GE.  10)  GO  TO  6103 

3333 

WRITE  (18,1331!  NRSER, JULIAN, MTIME 

0334 

6103 

IF  (MOATE  .GE.  13) 

i  WRITE  (13,1139)  MDATE,  MTIME,  BMONTH 

0336 

IF  (MOATE  .LT.  10) 

t  WRITE  (  19,1239)  MDATE , MTIME , BMONTH 

3338 

GO  TO  6106 

3339 

6104 

IF  (JULIAN  .GE.  100)  WRITE  (13,1431)  Ni 

0341 

IF  (JULIAN  .GE.  100)  SO  TO  6105 

0343 

IF  (JULIAN  .GE.  10)  WRITE  (18,1581!  Nr! 

0345 

IF  (JULIAN  .GE.  10)  GO  TO  6105 

3347 

WRITE  (19,1681)  NRSER, JULIAN, MTIME 

0348 

6105 

IF  (MDATE  .GE.  10) 

■i  WRITE  (18,1  399)  MDATE , MT IME  ,  BMONTH 

0350 

IF  (MDATE  .LT.  10) 

•t  WRITE  (  18  ,  1  439)  MDATE  ,  MT  IME ,  BMONTH 
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0352  6106  WRITE  (13,1192) 

0353  WRITE  (18,1183)  JYEAR , INFNR 

0354  WRITE  (18,1134)  JYEAR , INFNR 

0355  IF  (LINCNT  .GT.  200)  SO  TO  6081 

0357  WRITE  (18,187)  ILINE, JYEAR, INFNRM 

0358  SO  TO  605 

0359  6081  WRITE  (19,136)  ILINE, JYEAR, INFNRM 

0360  605  IF  ( ARRN8R  .EQ.  THREE)  GO  TO  209 

C . 

c 

C  F  array  signal  detection  area 
C 

0362  603  IDUH  =  IHEADR (2)  -  3 

0363  IF  (IDUM  .LE.  IHBKNR)  GO  TO  209 

0365  IF  (FRHOVG  .LT.  RHQMIN)  GO  TO  209 

0367  IF  (FRODIF  .LT.  0.)  GO  TO  209 

0369  IF  (FVELOX  .LT.  250.)  GO  TO  209 

0371  IF  (FVELOX  .GT.  700.)  GO  TO  209 

C 

KSFLAG  =  INC 

IF  (KSKIP  .LE.  0)  GQ  TO  607 
DO  609  I  =  1, KSKIP 
AZMINP  =  AZMIN(I) 

IF  (AZMIN(I)  .GT.  AZMAX ( I ) )  AZMINP  =  AZMIN(I)  -  360. 

FAZIMY  =  FAZIMX 

IF  ((AZMINP. LT.0.). AND. (FAZIMX. GT. AZMIN ( I ) ) )  FAZIMY=FAZIHY-360. 
IF  (IIBKNR  .LT.  IBKBEG ( I ) )  GO  TO  609 

IF  (IIBKNR  .GT.  I8KFIN ( I ) )  GO  TO  609 

IF  (FVELOX  .LT.  VELMIN  ( I ) )  GO  TO  609 

IF  (FVELOX  .GT.  VELMAX  ( I ) )  GO  TO  609 

IF  (FAZIMY  .LT.  AZMINP)  GO  TO  609 

IF  (FAZIMY  .GT.  AZMAX ( I) i  60  TO  609 
KSFLAG  »  I  YES 
609  CONTINUE 

IF  (KSFLAG  .EQ.  IYES)  GO  TO  209 
607  IFSPQX  =  IROUNO  (FF5PQX) 

KFSPQX  =  ICHOOZ ( IFSPQX i 
KDUM  =  ICHOOZ  (IDUM) 

IFAZ  =  IRQUND (FAZIMX  > 

KFAZ  »  ICHOOZ  ( IFAZ) 

IFCZ  =  IROUND (FAZVAX ) 

KFCZ  =  ICHOOZ  ( IFCZ) 

IFV  =  IROUND (FVELOX ) 

IFCV  =  IROUND (FVEVAX) 

KFCV  *  ICHOOZ ( IFCV) 

ILINE  =  ILINE  *  1 
I ILINE  =  I ILINE  ♦  1 
KLINE  =  ICHOOZ (ILINE) 

C 


0412 

IF  (KLINE  -  0) 

640,641,642 

0413 

640 

WRITE  (19,401) 

ILINE, FOUR 

0414 

GO  TO  643 

0415 

641 

WRITE  (18,402) 

ILINE, FOUR 

0416 

GO  TO  643 

0373 
0374 
0376 
0377 
0378 
0380 
0381 
0383 
0385 
0387 
0389 
0391 
0393 
0395 
0396 
0397 
8399 
0400 
0401 
0402 

1  0403 

0404 
0405 
0406 
0407 
0408 
0409 
0410 
0411 
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0417 

642 

WRITE  (13,403) 

ILINE, FOUR 

0413 

643 

IF  (KTIME  . 6T. 

1)  GO  TO  644 

0420 

IF  (KTIME  -  0) 

6431,6432,6433 

0421 

6431 

WRITE  (18,404) 

JTIME 

0422 

30  TO  645 

0423 

6432 

WRITE  (13,4041)  JTIME 

0424 

GO  TO  645 

042S 

6433 

WRITE  (13,4042)  JTIME 

0426 

SO  TO  645 

0427 

644 

WRITE  (13,405) 

JTIME 

0428 

645 

IF  (KDAY  -  0) 

646,647,647 

0429 

646 

WRITE  (13,406) 

JDAY , AMONTH 

0430 

GO  TO  648 

0431 

647 

WRITE  (18,407) 

JDAY , AMONTH 

0432 

648 

IF  (KDUM  -  0) 

649,650,651 

0433 

649 

WRITE  (13,408) 

I OUM 

0434 

GO  TO  653 

043S 

650 

WRITE  (13,409) 

IDUM 

0436 

GO  TO  653 

0437 

651 

IF  (KDUM  ,EQ. 

2)  GO  TO  652 

0439 

WRITE  (13,410) 

IDUM 

0440 

SO  TO  653 

0441 

652 

WRITE  (18,411) 

IDUM 

0442 

653 

IF  (KFSPQX  -  0)  654,655,656 

0443 

654 

WRITE  (18,412) 

IFSPQX,FRHQVX,FRQDIF 

8444 

GO  TO  657 

0445 

655 

WRITE  (18,413) 

IFSPQX.FRHOVX.FRODIF 

0446 

GO  TO  657 

0447 

656 

WRITE  (18,414) 

IFSP3X , FRHOVX , FROD  IF 

0443 

657 

IF  (KFA2  -  3) 

653 , 659 , 660 

0449 

658 

WRITE  (18,415) 

IFAZ 

3453 

GO  TO  661 

0451 

659 

WRITE  (18,416) 

IFAZ 

3452 

GO  TO  661 

3453 

660 

WRITE  (18,417) 

IFAZ 

0454 

661 

IF  (KFC2  -  0) 

662,663,664 

3455 

662 

WRITE  (13,413) 

IFCZ.IFV 

3456 

GO  TO  665 

0457 

663 

WRITE  (18,419) 

IFCZ, IFV 

0453 

GO  TO  665 

0459 

664 

WRITE  (18,420) 

IFCZ.IFV 

0460 

665 

IF  (KFCV  -  0) 

666,667,663 

0461 

666 

WRITE  (18,421) 

IFCV 

0462 

SO  TO  670 

0463 

667 

WRITE  (18,422) 

IFCV 

0464 

GO  TO  670 

3465 

663 

IF  (KFCV  .EQ. 

2)  GO  TO  669 

0467 

WRITE  (13,423) 

IFCV 

0468 

GO  TO  670 

0469 

669 

WRITE  (13,424) 

IFCV 

0470 

670 

IF  (ILINE  .LT. 

LINCNT)  GO  TO  209 

0472 

INFNRN  *  INFNR 

0473 

ILINE  =  ILINE 

♦  1 

0474 

NRSER  =  NRSER 

♦  1 
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0475  INFNR  =  INFNR  ♦  1 

0476  MTIME  =  MTIME  +  18 

0477  IILINE  *  IILINE  +  15 

0478  LINCNT  =  LINCNT  ♦  30 

0479  WRITE  (18,1135)  NRSER 

0430  WRITE  (13,1180) 

0481  IF  (MTIME  .LI.  1000)  GO  TO  6114 

0483  IF  (JULIAN  .GE.  100)  WRITE  (18,1131)  NRSER , JULI AN , MT IME 

0485  IF  (JULIAN  .GE.  100)  GO  TQ  6113 

0487  IF  (JULIAN  .GE.  10)  WRITE  (13,1281)  NRSER , JUL I  AN , MTI ME 

0489  IF  (JULIAN  .GE.  10)  GO  TO  6113 

0491  WRITE  (18,1331)  NRSER, JULIAN, MTIME 

0492  6113  IF  (MDATE  .GE.  10) 

1  WRITE  (18,1189)  MDATE, MTIME, BMQNTH.JYEAR 

0494  IF  (MDATE  .LT.  10) 

i  WRITE  (18,1289)  MDATE, MTIME, 3M0NTH,JYEAR 

0496  GO  TO  6116 

0497  61  14  IF  (JULIAN  .GE.  100)  WRITE  (13,1481)  NRSER , JUL  IAN , MT IME 

0499  IF  (JULIAN  .GE.  100)  GO  TO  6115 

0501  IF  (JULIAN  .GE.  10)  WRITE  (18,1581)  NRSER , JULI AN , MTIME 

0503  IF  (JULIAN  .GE.  13)  GO  TQ  6115 

0505  WRITE  (18,1681)  NRSER, JULIAN, MTIME 

0506  6115  IF  (MDATE  .GE.  10) 

k  WRITE  (18,1339)  MDATE, MTIME, BMQNTH,JYEAR 

0508  IF  (MDATE  .LT.  10) 

&  WRITE  (18,1489)  MDATE, MTIME, BMQNTH.JYEAR 

0510  6116  WRITE  (18,1182) 

0511  WRITE  (18,1183)  JYEAR, INFNR 

0512  WRITE  (18,1184)  JYEAR, INFNR 

0513  IF  (LINCNT  .GT.  200)  GO  TO  601 

3515  WRITE  (18,187)  ILINE, JYEAR, INFNRM 

0516  GO  TO  209 

0517  601  WRITE  (18,136)  ILINE, JYEAR, INFNRM 

3518  GO  TO  209 

C . 

c 

C  Output  restructur  i  rig  area 

C 

0519  700  REWIND  18 

0520  KCQUNT  =  0 

0521  710  JCOUNT  =  0 

0522  720  READ  ( 1 8 , 425, END  =  750)  <  I  CHAR  ( J )  ,  J  =  1.73) 

0523  730  IF  ( I  CHAR ( l )  .NE.  ICHRBK)  GO  TO  740 

0525  WRITE  (19,183)  ICHRLF , ICHRLF , ICHRLF , I CHRLF , I CHRLF , ICHRLF , I CHRlF 

0526  740  JCOUNT  =  JCOUNT  +  1 

0527  IF  ( ICHAR (JCOUNT)  ,EQ.  0)  SO  TO  710 

0529  IF  ( I  CHAR (JCOUNT )  .NE.  ICHRCR)  GO  TO  '40 

0531  ICHAR  (JCOUNT)  =  ICR 

0532  WRITE  '19,425)  ( ICHAR  ( I ) ,  I  =  1, JCOUNT) 

0533  KCOUNT  =  KCQUNT  *  1 

0534  IF  (KCOUNT  .GE.  IILINE)  GO  TO  750 

0536  GO  TO  710 

0537  T30  WRITE  (19,185)  I CR , I CR , NRSER  ,  I CR 

0539  WRITE  (19,193)  I CHRLF , I CHRLF , I CHRLF . I CHRLF  ,  I CHRLF , I CHRLF . I CHRLF 
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3539  CLOSE  ( UN  I T= 1 3 . D I SP= ' DELETE  '  ) 

3548  CALL  EXIT 

C . 

c 

C  FORMATS  area 
C 

3541  10  FORMAT  (/,'  RPTSCN  Rev  8.') 

0542  12  FORMAT  (Al) 

0543  13  FORMAT  ( '  F , T  or  B?  ' ,*> 

0544  14  FORMAT  (F6.2) 

0545  15  FORMAT  ('  Rewind  tape  ?  '(otherwise  EXIT!)  ',$) 

0546  151  FORMAT  C  Continue  in  this  file  on  tape?  ',*) 

0547  16  FORMAT  ('  SKIP  P ARAMS : START , STOP , A2MIN , AZMAX , 

ft  '  VMIN,VMAX?'  ,4) 

0548  161  FORMAT  (2I6,4F10.3) 

0549  171  FORMAT  ('  Number  of  channels?  ',$) 

0550  172  FORMAT  C  Julian  day?  ',*> 

3551  173  FORMAT  (  ’  Month”1  '  ,*> 

0552  174  FORMAT  C  Date  of  month?  ',4) 

0553  175  FORMAT  ('  Time  of  message?  ',$) 

0554  176  FORMAT  C  Serial  nr?  '  , 4 > 

0555  177  FORMAT  ('  Infrasonics  nr?  ',4) 

0556  13  FORMAT  C  Minimum  RHO?  ',4) 

0557  180  FORMAT  (  '  7. 7. 7. 7. 7. 7. 7. 7. 7. 7. 7. X 7. 7. 7. 7. 7. 7. 7. 1 7. 7. 7. 7. 7. 7. 1 7. 7. 7. 7. 7. 7. 7. 7. 7. 7. 7. 77. ' ,  A 1 ) 

0558  2191  FORMAT  ( ' HRATUZYUW  RUHHWEB ' , 314 , ' -UUUU — RUEBALB. C ' , A 1 ) 

3559  2281  FORMAT  CHRATUZYUW  RUHHWEB  ',14,'  0,12,14, 

'-UUUU— RUEBALB.  C  ’  ,A1) 

3560  2381  FORMAT  CHRATUZYUW  RUHHWEB  ',14,'  00  ,11,14, 

&  '-UUUU  —  RUEBALB.  C  '  ,  A 1 ) 

3561  2481  FORMAT  ( ' HRATUZ YUM  RUHHWEB  ' , 2 1 4 , *  0 ' , 1 3 , ' -UUUU  — RUEBALB . C ’ , A 1 ) 

3562  2581  FORMAT  CHRATUZYUW  RUHHWEB  '  ,  I  4  ,  '  0' ,12. '0' .13, 

\  '  -UUUU— RUEBALB.  C ',  Al ) 


3563 

2631 

FORMAT 

i  'HRATUZYUW  RUHHWEB' 

,14, 

'  30' , 11, '0 ' , 13, 

1 

). 

'-UUUU  — RUEBALB.  I  '  , 

Al) 

3564 

2139 

FORMAT  ' 

;  ’ ZNR  UUUUU ' ,A1 ,/.  'R 

'  .13 

,14, ' Z  ' , A3 , 1 3 , A 1 ) 

3565 

2239 

FORMAT 

CZNR  UUUUU', Al,/,  'R 

3’, 

11,14, ”2  ' , A3, 13, Al ) 

3566 

2339 

FORMAT  l 

:  '  ZNR  UUUUU'  ,  A 1 ,  /  ,  '  R 

'  .13 

,'0',I3,'I  , A  3 , 1 3 , A 1 ) 

3567 

2439 

FORMAT 

!  'ZNR  UUUUU' , Al , / ,  'R 

3', 

11, '0' . 13, ' Z  ' , A3, 13, Al) 

3563  132  FORMAT  CFM  MCMURDO  STATION  ANTARCTICA ' , Al , /  , 'TO  GEOPHYSICAL 

V  'INSTITUTE  FAIRBANKS  AK//TELEX  NR  35414//', Al) 

0569  133  FORMAT  CACCT  NS-WCA8 ' . Al . / , ' BT  '  ,  A 1 , / ,  UNCLAS  INFRASONICS  NR'. 

&  13, '-',14, Al,/,  'PASS  TO  DR  C  WILSON', Al) 

0570  134  FORMAT  CSUBJ:  INFRASONICS  REPORT  '  , 1 3 , ' - '  ,  1 4  ,  A 1 ) 

0571  185  FORMAT  ('CHEERS,  BRUCE ' , A 1 , / , ' BT ' , A l , / , ' • ' , 1 4 , ' C ' , A 1 ) 

3572  1  190  FORMAT  (  '  3 7. 3 V. 7. ? 7. I 7. 7. 3 3 7. 7. '!.  1 1 1 1 7. 7. 7. 7. 7.  1  7. 7 X  ;■ 1 1 1 1 7, 7. 1 7. 7. 7. _  ' ) 

3573  1  131  FORMAT  CHRATUZYUW  RUHHWEB  '  ,314,  '  -UUUU— RUEBALB.  C_  ' ) 

3574  1231  FORMAT  CHRATUZYUW  RUHHWEB  ' , 1 4 ,  ’  0',I2,I4, 

i  ' -UUUU - -RUEBALB . C  _  ' ) 

3575  133  1  FORMAT  CHRATUZYUW  RUHHWEB  ’ , 1 4 ,  ’  30-,Il,I4, 

\  -UUUU  — RUEBALB.  C_  ) 

3576  1491  FORMAT  C HRATUZYUW  RUHHWEB ' , 2 1 4 ,  '  0  ' , 1 3 ,  '  -UUUU— RUEBALB.  I _  > 

3577  1581  FORMAT  CHRATUZYUW  RUHHWEB  '  ,  1 4  ,  '  3  '  ,  1 2  ,  '  3  '  ,  1 3 , 

L  ' -UUUU--RUEBALB.  I.  ' ) 

3578  1681  FORMAT  CHRATUZYUW  RUHHWEB  '  , 1 4 ,  '  00  ' . 1 1 ,  ' 0 ' , 1 3 , 
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0579 

1139 

FORMAT 

( ' INR  UUUUU.'  ,/ ,  R  ’  , 10, 14,  ’  Z  ,  A  3  ,  I  3  ,  ) 

0580 

1289 

FORMAT 

('ZNR  UUUUU.',/,  R  0,11,14,  Z  ,A3,I3~'.') 

3581 

1389 

FORMAT 

( 'ZNR  UUUUU.' ,/ ,  R' ,  13,  0' ,  13,  '  Z  '  ,  A  3 , 1 3  7  '  '> 

0582 

1489 

FORMAT 

(ZNR  UUUUU  ',/,  'R  0  ,11,  3  ,13,  'Z  ,A3,I3,'  ) 

3583 

1192 

FORMAT 

CFM  MCHURDO  STATION  ANTARCTICA. ',/,' TO  3E0PHYSIC 

i 

'INSTITUTE  FAIRBANKS  AK//TELEX  NR  35414//.') 

0584 

1193 

FORMAT 

(ACCT  NS-WCAB.' ,/,  'BT_'  ,/,  'UNCLAS  I NFRASQN I CS'nR 

\ 

13, ,14, '_',/, 'PASS  TO  DR  C  WILSON.') 

0585 

1134 

FORMAT 

CSUBJ:  I  NFRASQN  ICS  REPORT  ‘  ,  13 ,  '  -  ' ,  1 4 ,  '  .  ' ) 

0586 

1185 

FORMAT 

( 'CHEERS,  BRUCE. ',/,' BT_ 1 4 ,' C .' > 

3537 

196 

FORMAT 

(13, ’.CONTINUED  FROM  MSS  NR ‘ , 13 , ' - '  ,  I  4  ,  .  '  ) 

0588 

187 

FORMAT 

( 12, ' .CONTINUED  FROM  MSG  NR ' , 13 , ' - ' , I 4 , ' . ' ) 

0589 

198 

FORMAT 

( 7  A 1 ,  NNNN [[ C ICC  C [[[[[[[[[[[[[[  C  [[[  [  '  , 

J 

'  7. 7. 7. 7. 7. 7. 7  7. 1 7. 7. 7. 7. 7. 7. 7. 7. 7. 7. 7. 7. 7. 7. 7. 7. 1 7. 7. 7. 7. 7. 7. 7. 7. 7. 7. 7.  ‘  ) 

0590 

19 

FORMAT 

(216) 

0591 

190 

FORMAT 

(  '  Start , Stop :  ' , * > 

0592 

191 

FORMAT 

(A3) 

0593 

193 

FORMAT 

(  '  Year?  ' , 1) 

3594 

196 

FORMAT 

(713) 

0595 

401 

FORMAT 

(11,  ' .  '  ,A1, ' ,$) 

3596 

402 

FORMAT 

( 12,  ' .  '  ,A1 ,':',<) 

0597 

403 

FORMAT 

(13, '. '  ,  A 1 ,  ' :  ',*> 

3598 

404 

FORMAT 

(  '000' , 1 1 ,  'UT  ' ,!) 

0599 

4041 

FORMAT 

(  '00'  ,  12,  'UT  ' ,1) 

3600 

4042 

FORMAT 

(  '3'  ,13,  'UT  ' ,*) 

0601 

405 

FORMAT 

( 14,  UT  ' ,1) 

0602 

406 

FORMAT 

(11, A3,  IX, I) 

3603 

407 

FORMAT 

(12, A3,  IX, 1) 

3604 

403 

FORMAT 

(  '3k'  ,11, IX, I) 

3605 

409 

FORMAT 

(  '  B  K  '  ,  1 2 , 1 X ,  1 ) 

•3636 

410 

FORMAT 

(  Bk  '  ,  13, 1X,I) 

3607 

411 

FORMAT 

(  'BK'  ,  14,  IX ,1) 

3608 

412 

FORMAT 

(  ' SE  '  ,  1 1 ,  '  R  '  ,F4. 2.  DR  '  ,F 4. 2, IX ,1) 

3609 

413 

FORMAT 

(  SE'  , 12,  '  R  ’  ,F4. 2,  DR  , F 4 . 2 . 1 X , 1 ) 

3610 

414 

FORMAT 

(  ’  SE  '  ,  1 3 ,  ’  R',F4.2,'  OR  '  ,  F4 .  2 , 1  '< ,  1 ) 

3611 

115 

FORMAT 

'  AZ'  ,  I1,1X,I) 

3612 

416 

FORMAT 

•:  '  A  Z  ' .  1 2 , 1 X  ,  1 ) 

3613 

417 

FORMAT 

! ' AZ ' , 13,  ix,f ) 

3614 

413 

FORMAT. 

'  '  C  Z  ■  ,  1 1 ,  '  V  ■  ,  1 3 , 1 X ,  i ) 

3615 

419 

FORMAT 

( 'Cf ' , 12, '  V , 13, IX, 4) 

3616 

420 

FORMAT 

( '  CZ  '  ,  1 3  ,  '  V. 13, IX, 4) 

0617 

421 

FORMAT 

CCV',11,  '_') 

3619 

422 

FORMAT 

( ■  c  v  • ,  1 2 ,  •  _  ) 

0619 

423 

FORMAT 

(  'CV  ,  13,  '_' ) 

3620 

424 

FORMAT 

(  '  C  V  '  ,  I  4  ,  '  _  '  > 

0621 

425 

FORMAT 

( 80A 1 ) 

3622 

END 

34 


FORTRAN  IV 


vac. 1-1 


Nan  15  — Qct-34  39:  1  4:0 


PAGE  301  S-TCeCtf 


3001 


0002 

0003 

0004 

3005 

3006 


0007 

0033 

0009 


3010 

3311 

3012 

3013 
0314 
0015 


C 

C  Date  of  this  revision:  19-Nay -94 

C 

PROGRAM  RTG8CH 
C 

C  COMMON/ array /DATA  area 

C 

COMMON  /MTBLK/  IDNSTY, 1PARTY, ISTATU112) 

COMMON  / 1  ARRAY/  I A2DBK ( 2730 ) , I BKRD Y , I CHNL ( 8 ) 

COMMON  ,'PASBLK/  IWKHDR  ( 20)  ,  IF  CHNL  l51 2 , 4 )  ,  IT  CHNL  (5 1 2,4) 

COMMON  /APARAM/  FXD IF ( 6 ) , FYD IF ( 6 ) , FTDIF ( 6 ) ,FSIGMA(4) , TXD IF ( 6 ) , 
(TYDIF(6> ,TTDIF(6> ,TSIGMA<4> 

COMMON  /ANALYS/  FFSPQX , FRHOVG , FVELCC , FAZ IMF , FVEVAR , F A Z V AR , I FSTAT , 
(FMU14) ,FPSI  (4)  .FRHQ (6) , IFMAX ( 4 ) , IFMIN ( 4) , FTSPQX , TRHOVG , TVELOC , 
CTAZ IMF , TVEVAR , TAZVAR , ITSTAT , TMU (4) , TPS  I ( 4 )  ,TRH0(6) , UMAX (4)  , 

C I TM IN ( 4 ) 

DIMENSION  J TAIL (98) , I  TAIL ( 150) 

EQUIVALENCE  ( FFSPQX , J TA I L ( 1 ) ) , ( I TA I L ( 1 ) , I A2DBK (2531 ) ) 

COMMON  / M I  SC /  ITMPRYU536) , IFCNBR , ITCNBR , ISTAT , ITRGRY ( 1 29)  , 
(CALLER, INRDIF, INRCHL, ITRMAX , I  TWEAK , F I MGRY ( 256 , 4 ) r 
{ I XFLGF  ( 6 )  ,  IXFLGK6)  ,  FD I  FA  ( 6 )  ,TDIFA(6) 

C 

DATA  ICHNL/3, 1 ,2,3, 4, 5, 6, 7/, ITWEAK/ 1/ , ARRNBR/ 1HB/ 

DATA  INBUFF/  “  177562/, I  MASK /"U7  /  ,  I ADCSR/ "  177000/ ,  I ADBUF/ “  1 77002/ 
DATA  IGETDT/ -1/, I INTDT/0/, FOUR/ 1HF/, THREE/ 1HT/, BOTH/ 1HB/ 

DATA  XN0/1HN/, YES/1HY/ , IN0/-1/ , I  YES/ 1 /, PIOVRN/ . 0122719/ 

DAI  A  ICSTRT/ 1HC/, IRSTRT/1HR/ , I  TWEAK/ 1/ 

DATA  IUN IT/30/, IDNSTY/300/, I  PARTY/ 1  / 


C 


C 

C 

Progr  asi 

and  nag  tape  initialization 

3016 

C 

999 

c 

CALL  REWTAPUUNIT,  ISTATU) 

3017 

L 

9?0 

PAUSE  ' 

MOUNT  tape ’ 1 ' 

0019 

r 

TYPE  10 

3319 

L 

102 

CALL  MTINIT ( IUNIT) 

3320 

IF  (ISTATU(l)  .ME.  I YES )  STOP 

3022 

CALLER  = 

BOTH 

0023 

r 

CALL  CHLMIX (8; 

0024 

L 

DO  110,1 

=  1,1536 

3325 

ii0 

ITMPRY'I)  =  0 

3026 

DO  111,1 

=  1,93 

3027 

in 

JTAIL(I) 

=  0 

3028 

DO  105,1 

=  1,3 

0029 

135 

I CHNL ( I ) 

=  1-1 

3030 

DO  106,1 

=  1,6 

3031 

FTDIF ( I ) 

=  3. 

3332 

136 

TTOIF ( I ) 

=  3. 

C 
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0033 

RINOX  =  0. 

3034 

DO  119,1  =  1,129 

0035 

THETAN  =  COS (PIQVRN*RINDX) 

0036 

ITRGRY ( I )  =  IFIX (32767. *THETAN  +  .5) 

0037 

119 

r 

RINDX  =  RINDX  t  1. 

0038 

109 

TYPE  193 

0039 

ACCEPT  14, JYEAR 

0040 

112 

JFLAG  =  IGETDT 

0041 

CALL  RTCLQK  (JFLA6 , AMONTH , JDAY , JHQUR , JM IN , JSEC) 

0042 

108 

TYPE  194, JDAY, AMONTH, JYEAR , JHOUR ,JMIN,JSEC 

0043 

ACCEPT  12, ANSWER 

0044 

IF  (ANSWER  .NE.  XNO)  GO  TO  107 

0046 

TYPE  195 

0047 

ACCEPT  196, JYEAR, JFLAG, JDAY, JHQUR,  JMIN 

0048 

CALL  RTCLQK  (JFLAG, AMONTH, JDAY, JHOUR, JMIN, JSEC) 

0049 

f 

GO  TO  112 

0050 

L 

107 

TYPE  19 

0051 

ACCEPT  12, ANSWER 

0052 

p 

IF  (ANSWER  .NE.  YES)  GO  TO  300 

0054 

L 

TYPE  13 

0055 

ACCEPT  12,ARRNBR 

0056 

IF  ( ARRNBR  .EQ.  THREE)  GO  TO  103 

3058 

L 

TYPE  15, FOUR 

3059 

ACCEPT  1 4, IFCNBR 

0063 

IF  (IFCNBR  .EQ.  4)  GO  TO  104 

0062 

114 

TYPE  18 

3063 

ACCEPT  14, IFCHLM 

0064 

CALLER  =  FOUR 

0065 

CALL  CHLMIX (IFCHLM) 

0066 

104 

p 

IF  (ARRNBR  .EQ.  FOUR)  GO  TO  101 

3068 

L 

133 

TYPE  15, THREE 

3369 

ACCEPT  14,1 TCNBR 

0370 

IF  (I TCNBR  .EQ.  4)  GO  TO  101 

0372 

113 

TYPE  181 

3073 

ACCEPT  1 4 , I TCHLM 

0074 

CALLER  =  THREE 

0075 

n 

CALL  CHLM I X ( I TCHLM ) 

0076 

L 

101 

TYPE  16 

0077 

ACCEPT  196,  ICHNL 

0078 

TYPE  196, ICHNL 

0079 

c. . . . 

GO  TO  107 

c 

c 

p 

Main  program 

3080 

300 

IBKRDY  =  I  NO 

0081 

IA2DBK (2)  =  0 

0082 

IA2DBK (16)  =  0 
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3333 

3084 

3035 

3086 

0038 

0389 

3093 

3091 

3092 
0393 
3394 
0096 
3098 
0099 

3100 

3102 

0103 

0105 

0107 


0109 

0110 

0111 

0112 

0113 

0114 

0115 

3117 

0118 

0119 

3123 

3121 

3123 


301  CALL  A2DRT6(IA2D8K,I BKRDY ,ISTATU,ICHNL) 

JFLAG  =  IGETDT 

CALL  RTCLOK ( JFLAG, AMONTH, JDAY. JHQUR, JM IN, J3EC) 

IF  (IHUNS  .NE.  IVES)  GO  TO  303 
TYPE  11 

IA2D5K (16)  =  I  YES 
IHUNG  =  INO 
C 

303  IPR08E  =  IPEEK ( INBUFF) 

IPROBE  =  (IPROBE  .AND.  IMASK) 

IPR08E  =  IPROBE  +  3192 
IF  (IPROBE  .EQ.  ICSTRT)  GO  TQ  302 
IF  (IPROBE  .EQ.  IRSTRT >  GO  TO  306 
JFLAG  =  IGETDT 

CALL  RTCLOK (JFLAG , I  STATU ( 1 1 ) , I  STATU (10) ,ISTATU(9> , I  STATU ( 9 ) , 
St  I  STATU  ( 7 )  ) 

IF  ( I  STATU ( 8 )  .LT.  JMIN)  I  ST ATU  ( S  >  =  ISTATU(S)  +  60 
ISTATU (8)  =  ISTATU (8)  -  5 
IF  ( ISTATU (8)  ,GT.  JMIN)  IHUNG  =  IYES 
IF  (IHUNG  .EQ.  IYES)  GO  TO  301 
IF  ( ISKRDY  .NE.  IYES)  GO  TO  303 
C 

C  A  data  black  is  filled! 

C 

CALL  UNWIND  ( I A2DBK , IWKHDR ,  I TMPRY ) 

CALL  INIA2D 
GO  TO  600 
C 

306  CALL  IPOKE ( I ADCSR .3) 

DO  307,1  =  1,2 

CALL  EOFTAPUUNIT,  ISTATU) 

IF  ( ISTATU  ( 1 )  .EQ.  INO)  CALL  M  T  S  T  A  T  (UNIT) 

307  CONTINUE 
GO  TQ  999 

C 

302  CALL  IPOKE ( I ADCSR , 0) 

CALL  EOFTAP(IUNIT, ISTATU) 

IF  ( ISTATU  ( 1 )  .EQ.  INO)  CALL  MTSTAT  !  ILNIT) 

30  TO  102 


C  Analysis  area 

C 

C 


0124 

600  IIBKNR 

5 

IWKHDR (2) 

0125 

JMONDA 

= 

IWKHDR (3) 

0126 

JHRMIN 

IWKHDR ( 4) 

0127 

JSEC  * 

IWKHDR (5) 

02  28 

IERRTO 

s 

IWKHDR (17) 

0129 

ISKWER 

s 

IWKHDR (18) 

0130 

IOVRNG 

3 

IWKHDR (19) 

3131 

IUNDRN 

3 

IWKHDR (20) 

0132 

I A2DBK (16)  =  3 

C 
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0133 

JFLAG  »  IINTDT 

0134 

JDAY  »  JMQNDA 

V 

013S 

JHOUR  =  JHRMIN 

0136 

CALL  RTCLOK  (JFLAG , AMONTH , JDAY , JHOUR , JM IN , JSEC ) 

0137 

TYPE  197, I IBKNR, IERRTO , ISKWER, IQVRNG, IUNDRN 

0133 

TYPE  1 98, JDAY, AMONTH, J YEAR, JHOUR, JMIN, JSEC 

0139 

C 

IF  ( ARRNBR  .EQ.  FOUR)  GO  TO  603 

4*> 

0141 

FTSPSX  =  0. 

0142 

CALLER  =  THREE 

0143 

CALL  RTGTDA 

0144 

DO  608,1  =  54,93 

0145 

608 

ITAIL (4+1 )  =  JTAIL(I) 

* 

0146 

c 

IF  (ITSTAT  .LT.  0)  GQ  TO  605 

0148 

CALL  FILTER 

0149 

IF  (FTSPQX  .GT.  0.)  GO  TO  606 

0151 

TYPE  192, CALLER 

0152 

GO  TO  60S 

0153 

L 

606 

CALL  RTGTDA 

0154 

DO  607,1  =  50,61 

0155 

607 

C 

ITAIL (53+1 >  *  JTAIL(I) 

0156 

C 

605 

r 

IF  (ARRNBR  .EQ.  THREE)  GO  TO  609 

U  •  •  •  • 

C 

n 

0158 

603 

TYPE  191 

0159 

FFSPQX  =  0. 

0160 

CALLER  =  FOUR 

0161 

CALL  RTGTDA 

+ 

0162 

DO  604,1  =  1,45 

0163 

604 

ITAIL  !  I )  =  JTA IL ( 4+1 ) 

0164 

C 

IF  ( IFSTAT  .LT.  0)  GO  TO  609 

0166 

CALL  FILTER 

3167 

IF  (FFSPQX  .GT.  0.)  GO  TO  602 

41 

3169 

TYPE  192, CALLER 

0170 

50  TO  609 

3171 

L 

602 

CALL  RTGTDA 

0172 

DO  601,1  =  1,13 

3173 

601 

I TAIL ( 45+ 1 >  *  JTAIL(I) 

e 

C 

0174 

609 

IF  ( I STATU ( 1 )  -EQ.  INO)  CALL  MTSTAT ( I UN I T ) 

0176 

I8KRDY  =  INO 

0177 

r 

GO  TO  303 

fc 

L  •  •  •  t 

C 

c 

FORMATS  area 

0178 

L 

10 

FORMAT  !/,'  RTG8CH  Rev  22. 5', 1) 

0179 

n 

FORMAT  ( 6 X ,  ' ♦♦♦HUNG ! ♦♦♦ ' ,1) 

* 
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0180 

12 

FORMAT 

(AD 

0181 

13 

FORMAT 

( ' 

F , T  or  B?  '$) 

0182 

14 

FORMAT 

(3 

12) 

0183 

15 

FORMAT 

(  ' 

'  ,A1 ,  '  array:  3  or  4?  ,4) 

0184 

16 

FORMAT 

( ' 

A2D  channels  (missing  channel  in 

4th  posi ti on ) :  ' , 4) 

0185 

18 

FORMAT 

( ' 

Missing  channel  <0,1, 2, 3  (or  8  if 

none)  >: 

0186 

181 

FORMAT 

(  ' 

Missing  channel  <4, 5, 6, 7  (or  8  if 

none)  >: 

0187 

19 

FORMAT 

<  ' 

Changes? '  ,4) 

0188 

191 

FORMAT 

( ' 

',*> 

0189 

192 

FORMAT 

( ' 

'  ,A1 ,3X, '*** INVALID  FILTER! !***', 

$) 

0190 

193 

FORMAT 

( ' 

Year?  ' , 4) 

0191 

194 

FORMAT 

( ' 

Time:', 13,'-', A3, '-',12, 14,':', 12 

•  •  T  O 

9  1  A  +  1 

'"UT??  ',4) 

0192 

195 

FORMAT 

(  ' 

Correct  time?  (Y,M,D,H,M)  ',4) 

0193 

196 

FORMAT 

(813) 

0194 

197 

FORMAT 

(/ 

,'  #',516,4! 

0195 

198 

FORMAT 

(  ' 

tWBA'  ,13,'-', A3, '-',12, 14, ':  ',12, 

'  '  p  ' 

4  A  *  f 

"UT . ' ,4) 

0196 

199 

FORMAT 

(  • 

' ,A1 ,6F7. 1 ,  '  Correct?  : ’,4) 

c 


c 

0197  500  STOP 

0198  END 
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0001 


0002 

0003 

9004 


0005 

0006 

0007 


9009 

0009 

0010 


C ******** **♦*  SCAN. FOR  ***************4********* ♦*♦***♦♦**♦*♦******♦ 

C 

C  Oats  of  revision:  12-Qct-84 

C 

PROGRAM  SCAN 
C 

C  PURPOSE 

C  To  scan  a  tape  for  blocks  of  interest 

C 

C  USAGE 

C  RUN  SCAN 

C 

C  INPUT  PARAMETERS 

C  YEAR 

C  F.T.B 

C  RHOMIN 

C 

C  STATS 

C 

C  NRCHNL 

C  START 

C  STOP 

C  BEYOND 

C  REWIND 

C 
C 

C  REMARKS 

C  None 

C 

C  LIBRARIES  REQUIRED 

C  REDLIB ,MACLIB 

C 

C  METHOD 

C  The  program  scans  the  trailer  data  of  the  tape  starting  at  START. 

C  If  the  value  of  RHO  is  greater  than  RHOMIN  then  the  analysis  data 

C  (and  statistics  if  requested)  are  printed.  When  an  EOF  (end-of- 

C  file)  or  the  STOP  block  is  encountered,  the  program  then  allows 

C  for  another  scan. 

C 

COMMON  /MT3LK/  IDNSTY, IPARTY, ISTATU ( 12) 

DIMENSION  ZMKSPC (2730) , IMP0N6 (2730) 

COMMON  /TRAILY/  IMPING (25S0) , FVELOC . FA 2 IMF , FVEVAR , FAZVAR , IFSTAT , 

(FMU ( 4) , FPS I ! 4) ,FRH0(6) , IFMAX (4) , IFMIN ( 4 ) , FFSPQX , FRHQVX , FVELOX , 
-CFAZIMX  ,FVEVAX  ,FAZVAX , TVELQC , TAZ IMF , TVEVAR , TAZ VAR ,ITSTAT,TMU(4) . 

£TPSI (4) ,TRH0(6) , ZTMAX (4) , ITMIN (4) , FTSPQX , TRHOVX , TVELOX , TAZ IMX . 
{TVEVAX , TAZVAX 

DIMENSION  IHEADR (20) ,IHEAD1(20) 

DIMENSION  FSISP1A  (4)  ,TSIGMA(4) 

EQUIVALENCE  (IMPING(l)  ,IMPONG(D) 

C 

DATA  I  ZERO/ 0/ , FOUR/ 1HF/, THREE/ 1HT/, BOTH/ 1HB/ 

DATA  XN0/1HN/,YES/1HY/, INO/-1/, I  YES/ 1 / , ZERO/0. / 

DATA  I  UN  IT/00/ , IDNSTY /800/, IPARTY /l /, I  REV/- 1/ 

C . 


-  A  two  digit  integer 

-  Selects  F  array,  T  array,  or  Both  arrays 

-  Minimum  average  PREfiitered  correlation  coefficient  for 
blocks  of  interest  (default  0.5  if  T,  0.4  if  F) 

-  If  Y  is  entered,  statistics  will  be  printed  for  each 
black  of  interest 

-  Number  of  channels  in  array  (default  4) 

-  Integer  value  of  first  block  to  be  scanned 

-  Integer  value  of  last  block  to  be  scanned 

-  If  Y  is  entered,  another  scan  is  permitted 

-  If  Y  is  entered,  tape  is  rewound  and  another  scan  is 
permitted 
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C 

p 

Prograi  and  nag  tape  initial!: 

0011 

101 

TYPE  10 

0012 

TYPE  193 

0013 

p 

ACCEPT  1 9 , J YEAR 

0014 

w 

102 

CALL  MTINIT ( IUNIT) 

0013 

p 

IF  ( ISTATU ( 1 )  .NE.  IYES)  STOP 

0017 

L 

110 

IGFLAG  «  INO 

0019 

TYPE  13 

0019 

ACCEPT  12, ARRNBR 

0020 

L 

TYPE  18 

0021 

ACCEPT  14,RH0MIN 

0022 

IF  (RHOMIN  .NE.  0.)  GO  TO  111 

0024 

IF  (ARRNBR  .EQ.  THREE)  RHOMIN 

0026 

IF  (ARRNBR  .EQ.  FOUR)  RHOMIN  ’ 

0028 

IF  ((ARRNBR  .NE.  THREE)  .AND. 

0030 

in 

TYPE  16 

0031 

ACCEPT  12, STATS 

0032 

INRDIF  =  6 

0033 

TYPE  171 

0034 

ACCEPT  19,NRCHNL 

0035 

IF  (NRCHNL  .EQ.  3)  INRDIF  =  3 

0037 

Tt  . 

FNRDIF  =  FLOAT ( INRDIF) 

C 

C 

p 

Tape  read  area 

0038 

L 

200 

TYPE  190 

0039 

ACCEPT  19, ISTART, ISTQP 

0040 

IF  (ISTART  .EQ.  0)  ISTART  =  1 

0042 

IF  (ISTQP  .EQ.  0)  ISTOP  =  1001 

0044 

P 

ISTOP  =  ISTOP  +  1 

0045 

DO  243,1  =  2531,2730 

0046 

243 

IMPING(I>«0 

IF  ( IGFLAG  .EQ.  IYES)  GO  TO  201 

CALL  REDTAPdUN IT,  IMPING,  INRBYT,  ISTATU) 

IF  ( ISTATU ( 1 )  .EQ.  IYES)  GO  TO  205 
CALL  MTSTAT ( IUN IT) 

IF  ( ISTATU (8)  .EQ.  IYES)  GO  TO  208 
SO  TO  209 

IF  ( IMPING (2)  , EQ.  ISTART)  GO  TO  220 
IFHO  a  ISTART  -  IMPINS (2) 

IFWD  =  IFWD  -  1 

IF  (IFWD  .EQ.  0)  GO  TO  209 

CALL  SPCTAP  (IUNIT, IFWD, ISTATU) 

IF  C ISTATU* 1 )  .EQ.  INO)  CALL  MTSTAT ( IUNIT) 
GO  TO  209 
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C 


0066 

220 

p 

IF  ( IMPING (2)  .LE.  I STOP )  GO  TO  204 

0068 

208 

PAUSE  '  ***D0NE*** ' 

0069 

IHEADR <  2)  =  0 

0070 

IHEADK2)  =  0 

0071 

P 

IHBKNR  -  0 

0072 

W 

TYPE  151 

0073 

ACCEPT  12,  BEYOND 

8074 

IF  (BEYOND  .Efl.  YES)  PRINT  153 

0076 

IF  (BEYOND  .Efl.  YES)  GO  TO  110 

0078 

TYPE  15 

0079 

ACCEPT  12,  REWIND 

0080 

IF  (REWIND.  NE.  YES)  CALL  EXIT 

0082 

PRINT  153 

0083 

CALL  REWTAP  ( 1  UN I T , I STATU ) 

0084 

IF  ( I STATU ( 1 )  .EQ.  INO)  CALL  MTSTAT (IUNIT! 

0086 

p 

SO  TO  110 

0087 

L 

204 

CALL  REDTAP ( IUNIT, IWKSPC, INRBYT, ISTATU) 

0088 

IF  ( ISTATU ( 1 )  .EQ.  IYES)  GO  TO  211 

0090 

CALL  MTSTAT (IUNIT) 

0091 

IF  ( ISTATU (8)  .EQ.  IYES)  GO  TO  208 

0093 

p 

SO  TO  204 

0094 

L 

211 

IF  ( IWKSPC (2)  .NE.  IMPING (2) )  GO  TO  214 

0096 

IF  ( IWKSPC ( 4)  .NE.  IMPING (4) )  GO  TO  214 

0093 

P 

TYPE  17, IMPING (2) 

0099 

L 

201 

DO  217,1  =  1,2730 

0100 

217 

IMP ING  (  D  =  IWKSPC  ( I ) 

0101 

IGFLAG  *  INO 

0102 

P 

GO  TO  204 

0103 

L 

214 

IGFLAG  *  IYES 

3134 

C.  .  .  . 

IF  ( IMPING (2)  .GT.  ISTOP)  GO  TO  208 

c 

p 

p 

Tape  block  setup  area 

0106 

300 

00  301,1  *  1,20 

0107 

IHEADR ( I )  »  I  HEAD  1  ( I ) 

0108 

301 

I HEAD  1  ( I )  =  IMP ING  ( I ) 

0109 

IF  ( IHEADR (16)  .EQ.  IYES)  IHBKNR  *  IHEADR 

0111 

p 

IF  ( IHEADR (16)  .EQ.  IYES)  TYPE  154, IHBKNR 

0113 

L 

FRHQVS  *  0. 

0114 

DO  302,1  *  1 , INRDIF 

0113 

302 

FRHOVG  =  FRHOVG  ♦  FRHO(I) 

0116 

P 

FRHQVG  »  FRHOVG/FNRDIF 

0117 

w 

DO  304,1  =  1,4 

0113 

FSIGMA ( I )  =  FPSI(I)**2  -  FMU ( I ) **2 
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0119  IF  (FSIGMA ( I )  .LT.  0.)  FSIGMA(I)  =  0. 

0121  304  FSISMA(I)  *  5QRT  (FSIGMA  ( I )  ) 

C 

0122  TRHQVS  =  0. 

0123  DO  303,1  *  1,4 

0124  TSX6HA ( I >  *  TPS  I ( I >  **2  -  TMU(I)**2 

0125  IF  (TSISMA(I)  .LT.  0.)  TSIGMA(I)  =  0. 

0127  303  TSIGMA ( I )  *  SORT (TSIGMA (I) ) 

C 

0128  DO  305,1  =  1 ,  INRDIF 

0129  305  TRHOVG  =  TRHOVG  +■  TRHO ( I ) 

0130  TRHOVG  *  TRH0V6/FNRDIF 

0131  TRODIF  *  TRHQVX  -  TRHOVG 

0132  FRODIF  =  FRHQVX  -  FRHQVG 

C 

0133  IF  ( IHEADR (2)  .GE.  ISTART)  GO  TO  600 

0135  GO  TO  209 

C . 

c 

C  T  array  signal  detection  area 
C 

0136  600  IF  (TRHOVG  .GE.  RHQP1  IN)  GO  TO  623 

0138  IF  (FRHOVG  .GE.  RHOMIN)  GO  TO  623 

0140  IF  (TRODIF  .LT.  -0.1)  SO  TO  623 

0142  IF  (FRODIF  .LT.  -0.1)  GO  TO  623 

0144  GO  TO  209 

C 

0145  623  II8KNR  *  IHEADR (2) 

0146  JDAY  *  IHEADR (3) 

0147  JHOUR  =  IHEADR (4) 

0143  JSEC  =  IHEADR (5) 

0149  IERRTO  =  IHEADR (17) 

8150  IZERON  =  IHEADR (18) 

0151  IOVRNS  =  IHEADR (19) 

0152  IUNDRN  =  IHEADR (20) 

C 

0153  JFLAG  =  I  ZERO 

0154  CALL  RTCLOK  < JFLAG, AI10NTH, JDAY, JHOUR, JMIN, JSEC) 

0155  IPFLAG  =  INO 

0156  IEFLAG  *  INO 

C 

0157  IF  ( ARRNBR  .EQ.  FOUR)  GO  TO  605 

0159  IF  (TRODIF  .GT.  -0.1!  GO  TO  609 

0161  IF  (STATS  .EQ.  YES)  GO  TO  661 

0163  TTMIN  *  0. 

0164  TTMAX  *  0. 

0165  00  641  I  *  1,4 

0166  TTMIN  »  TTMIN  ♦  FLOAT ( ITMIN ( I ) ) 

0167  641  TTMAX  «  TTMAX  ♦  FLOAT ( I TMAX  ( I ) ) 

0168  TTMAX  *  A8S ( TTMAX )  *  ABS ( TTMIN) 

0169  IF  (TTMAX  .LT.  1500.)  GO  TO  605 

0171  PRINT  1 1 , TRODIF , I IBKNR , THREE , JDAY, AMONTH, J YEAR , JHOUR ,JM IN, JSEC 

0172  GO  TO  605 

0173  609  IF  (TRHOVG  .LT.  RHOMIN)  GO  TO  605 
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0175  IF  (STATS  .NE.  YES )  GO  TO  610 

0177  IF  ( ITSTAT  -  0)  601,604,606 

0178  601  PRINT  180, THREE 

0179  GO  TO  604 

0180  606  IF  (TVELOX  .IT.  250.)  GO  TO  605 

0182  IF  (TVELOX  .GT.  700.)  GO  TO  605 

0134  661  PRINT  193 , JDAY , ANONTH , JYEAR , JHOUR , JNIN , JSEC 

0185  IPFLAG  =  I  YES 

0136  PRINT  193 , IHEADR ( 2 ) , ZERO , TAZ VAR , TVEVAR , TAZ INF, TVEIOC , TRHOVG , TROD  IF 

C 

0187  604  PRINT  197, I IBKNR, IERRTO, IZERON, IOVRNG, IUNDRN 

0188  IEFLAG  *  I  YES 

0189  PRINT  131 , THREE, TRHQ 

0190  DO  611,1  3  1,4 

0191  111=1+3 

9192  61  1  PRINT  185 , 1 1 1 , ITMAX ( I ) , ITMIN ( I ) , THU ( I ) , TPS  I ( I ) , TS IGMA ( I ) 

C 

0193  610  IF  ((STATS  .NE.  YES) . AND. (TRODIF. LT. 0. ) )  GO  TO  605 

0195  IF  (FTSPQX  -  0.)  612,613,614 

0196  612  PRINT  192, THREE 

0197  GO  TO  605 

C 

0198  613  PRINT  180, THREE 

0199  GO  TO  605 

C 

0200  614  IF  (TVELOX  .LT.  250.)  GO  TO  605 

0202  IF  (TVELOX  .GT.  700.)  GO  TO  605 

0204  IF  (IPFLAG  .ES.  IYES)  GO  TO  630 

0206  PRINT  198, JDAY, ANONTH , JYEAR , JHOUR, JMIN. JSEC 

0207  IPFLAG  =  I  YES 

0208  630  PRINT  133 , IHEADR (2) , FTSPQX , TAZVAX , TVEVAX , TAZ  IMX , TVELOX , 

&  TRHOVX, TRODIF 
C 

0209  605  IF  ( ARRN8R  .EQ.  THREE)  GO  TO  209 

C . 

c 

C  F  array  signal  detection  area 
r 

021  1  603  IDUN  =  IHEADR  (2)  -  3 

0212  IF  (  IDUfl  .LE.  IHBKNR)  GO  TO  209 

0214  IF  (FRODIF  .GT.  -0.1)  GO  TO  621 

0216  IF  (STATS  .EQ.  YES)  GO  TO  662 

0218  FFNIN  =  0. 

0219  FFNAX  *  0. 

.0220  DO  642  I  =  1,4 

0221  FFNIN  =  FFNIN  ♦  FLOAT ( IFNIN ( I ) ) 

0222  642  FFNAX  =  FFNAX  +  FLOAT ( IFNAX ( I ) ) 

0223  FFNAX  =  ABS (FFNIN)  +  ABS (FFNAX ) 

0224  IF  (FFNAX  .LT.  1500.)  GO  TO  209 

0226  PRINT  11, FRODIF, IDUN, FOUR, JDAY, ANONTH, JYEAR, JHOUR, JNIN, JSEC 

0227  GO  TO  209 

0228  621  IF  (FRHOVG  .LT.  RHONIN)  GO  TQ  209 

0230  IF  (STATS  .NE.  YES)  GO  TO  615 

0232  IF  ( IFSTAT  -  0)  607,602,608 


< 
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PRINT  190, FOUR 
GO  TO  602 

IF  (FVELOX  .IT.  250. )  GO  TO  209 

IF  (FVELOX  .GT.  700.)  GO  TO  209 

IF  ( IPFLAG  .EQ.  IYES)  GO  TO  631 

PRINT  198,JDAY,AM0NTH. JYEAR, JHQUR, JMIN, JSEC 
IPFLAG  =  IYES 

PRINT  132, IDUM,  IHEADR (2) , ZERO , FA2 VAR , FVEVAR , FAZ IMF , 
<  FVELOC ,FRHOVG , FRQD IF 


IF  ( IEFLAG  .EQ.  IYES)  GO  TO  632 
PRINT  197, II8KNR, IERRTO, I2ERON, IQVRNG, IUNDRN 
PRINT  181  .FOUR, FRHQ 
DO  616,1  =  1,4 
111=1-1 

PRINT  185,111, IFMAX ( I ) , IFMIN ( I ) , FHU(I> ,FPSI  (I) , FSIGMA ( I ) 

IF  ((STATS  .NE.  YES) . AND. (FRODIF.LT. 0. ) )  GO  TO  209 
IF  (FFSPQX  -  0.)  617,618,619 
PRINT  192, FOUR 
GO  TO  209 

PRINT  190, FOUR 
GO  TO  209 

IF  (FVELOX  . LT .  250.)  GO  TO  209 

IF  (FVELOX  .GT.  700.)  GO  TO  209 

IF  (IPFLAG  .EQ.  IYES)  GO  TO  633 

PRINT  198 , JDAY , AMQNTH, JYEAR , JHOUR, JMIN, JSEC 
PRINT  132, IDUM, IHEADR (2) , FFSPQX ,FAZ VAX , FVEVAX , FAZ I  MX , 
i  FVELOX, FRHQVX.FRODIF 
SO  TO  209 


FORMAT;  area 


FORMAT 

FORMAT 

St 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 

FORMAT 


(/, '  SCAN  Rev  3.2') 

('  Change  in  RHO  equals ' ,F6. 2, 5X ,' B1 ock  *',I5,1X,A1, 

'  array  9 ' , 13 , ' - ' , A3 ,  - ' , 12, 14, ' : ' , 12, 13, ' " U T . 

(Al) 

( '  F , T  or  B?  ’ ,1) 

(F6.2) 

('  Rewind  tape  ''otherwise  EXIT’  >  ',$) 

('  Continue  in  this  file  on  taoe?  ',*) 

(T) 

(  '  HUNG  at  block  #’,I6) 

('  Statistics?  ',*> 

('  BAD  Block,  # • ,15) 

('  Nueber  of  channels?  ',!) 

( ’  Miniaua  RHO?  '  ,$) 

('  ' ,Al,3X, '«**INVALID  ANALYSIS  I ! ♦**  ' ) 

C  ' , A 1 , 3 X , 6FS. 2) 

C  F  '  ,  1 4 ,  '  to ' , 15 ,F13. 1 , 2F6. 1 , 6X , 2F7. 1 , 4X , 


I1 
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i 


A 


I# 

SaS 

m 


0283 

0294 

0295 

0286 

0287 

0298 

0289 

0290 


0291 

0292 


183  FORMAT  ('  T * , 14 , 15X , F5. 1 , 2F6. 1 , 9X , 2F7. 1 ,3X , ' ( ' , F4. 2, ' ) ' , F5. 2) 
185  FORMAT  ('  ' , 1 1 ,216, 3F7. 1 ) 

19  FORMAT  (216) 

190  FORMAT  ( '  Start , Stop:  ' ,1) 

192  FORMAT  ('  ' ,A1,3X, '*** IN VALID  FILTER! !***') 

193  FORMAT  <’  Ysar'’  ,4) 

197  FORMAT  ( '  #’ ,516) 

193  FORMAT  C  0  NBA ‘ , 13, ’ - ' , A3, ' - ' , 12 , 14, ' : ' , 12 , '  ' , 12, ' "UT. ’ > 

. . 

c 

500  STOP 
END 
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PR06RAM  STATS 
PURPOSE 

To  scan  one  or  more  tapes  and  determine  average  values 
o f  statistics  and  output  to  the  printer  (UNIT  6). 

USAGE 

RUN  SCAN 

INPUT  PARAMETERS 


C************  STATS. FOR  ********************************** »+»*+****«» 
C 

C  Date  of  revision:  ll-0ct-34 
C 

C 
C 
C 
C 
C 
C 
C 
C 
C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 


YEAR 

F,T,8  - 

RHQMIN  - 

DIFMIN  - 

VELMIN  - 
VELMAX  - 
STATS  - 

START  - 
STOP 

BEYOND  - 
REWIND  - 


A  two  digit  integer 

Selects  F  array,  T  array,  or  Both  arrays 

Minimum  average  correlation  coefficient  for  blocks  of 

interest 

Minimus  change  in  average  correlation  coefficient  after 
polarisation  filtering 

Minimum  value  of  velocity  for  blocks  of  interest 
Maximum  value  of  velocity  for  blocks  of  interest 
If  Y  is  entered,  statistics  will  be  printed  for  each 
block  of  interest 

Integer  value  of  first  block  to.be  scanned 

Integer  value  of  last  block  to  be  scanned 

If  Y  is  entered,  another  scan  is  permitted 

If  Y  is  entered,  tape  is  rewound  and  another  scan  is 

permitted 


REMARKS 

None 


C  LIBRARIES  REQUIRED 

C  REDLI3,MACLIB 

C 

C  METHOD 

C  The  program  scans  the  trailer  data  of  the  tape  starting  at  START. 

C  If  the  value  of  RHQ  is  greater  than  RHOMIN  or  the  change  m  SHQ 

C  is  greater  than  DIFMIN,  then  the  statistics  are  summed  (and 

C  printed  if  requested). 

C 

3032  COMMON  /MTBLK/  IDNSTY, IPARTY, ISTATU  !  12) 

3003  DIMENSION  I WKSPC ( 2733) , IMPONG ( 2730 ) 

0304  COMMON  /TRAIL//  I MP I NG ( 2580) , FVELQC , FA  I  IMF , FVEVAR , FAZVAR , I F5T  AT  , 

{FHU (4) , FPS 1(4) , FRHO (6) , IFMAX (4) , IFMIN ( 4) , FFSPQX , FRHCVX , FVELOX , 

{FAZ IMX ,FVEVAX ,FAZVAX , TVELOC , TAZ IMF , TVEVAR , TAZVAR , ITSTAT , TMU ( 4 ) . 

{TPS  I (4) , TRHO ( 6 ) , ITMAX (4) , ITMIN (4) , FTSF2X , TRHOVX , TVELQX , TAZ IMX , 
{TVEVAX , TAZVAX 

0005  DIMENSION  TMAXT ( 4) , TMINT ( 4) , TMUT (4) , TPS  I T ( 4) , TS IGMT ( 4 ) 

0006  DIMENSION  FMAX T ( 4 ) , FM INT ( 4 ) , FMUT  ( 4 )  ,  FPS IT ( 4) , FS I  GMT ( 4) 

0007  DIMENSION  IHEADR ( 20 ) , IHEAD 1 ( 20 ) 

0008  DIMENSION  FS I SMA ( 4 ) , TS IGMA ( 4 ) 

0009  EQUIVALENCE  ( IMPING  (1 ),  IMPONG  ( 1 ) 
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0010 

DATA  I ZERO/0/, FOUR/ 1 HF/, THREE/ 1HT/, BOTH/ 1HB/ 

0011 

DATA  XNO/1HN/ , YES/1HY/ , IM0/-1/ , IYES/ 1/ 

4 

0012 

r 

DATA  IUNIT/03/, IDNSTY/930/, IPARTY/1/, IREV/-1/ 

c 

c 

Program  and  mag  tape  initialization  area. 

c 

0013 

100 

TYPE  10 

* 

0014 

TYPE  193 

0015 

ACCEPT  1 9 , J YEAR 

0016 

L 

102 

CALL  MTINIT ( IUNIT) 

3017 

IF  ( I STATU ( 1 )  .NE.  IYES)  STOP 

* 

0019 

L 

IGFLAG  =  I  NO 

3020 

TYPE  13 

0021 

ACCEPT  12 , ARRNBR 

0322 

L 

TYPE  19 

0023 

ACCEPT  14,RH0MIN 

3024 

TYPE  171 

0025 

ACCEPT  1 4 , D I FM I N 

0026 

TYPE  174 

0027 

ACCEPT  14, VELMIN 

002S 

TYPE  175 

0029 

ACCEPT  1 4 ,  VELMA X 

+ 

3030 

IF  ( VELMA X  .EQ.  0.)  VELMAX  =  13030. 

c 

- 

0032 

TYPE  16 

0033 

ACCEPT  12, STATS 

3034 

TYPE  192 

3035 

ACCEPT  19 , NRCHNL 

• 

3036 

INRDIF  =  6 

3037 

IF  (NRCHNL  .EQ.  0)  NRCHNL  =  4 

0339 

IF  (NRCHNL  .EQ.  3/  INRDIF  =  3 

3041 

c 

FNRDIF  =  FL0AT( INRDIF) 

0042 

V  UQNT=3 

0043 

Y  OUNT=0 

3344 

DO  110  1  =  1, NRCHNL 

3345 

FMAXT ( I ) =3. 

3346 

FHIMT ( I ) =0. 

0347 

FMUT ( I ) =0. 

3048 

FPSIT(I) =0. 

e 

0049 

FSIGHT ( I ) =0. 

3050 

TMA  X  T ( I ) =0 . 

0051 

TM I  NT ( I ) =0 . 

0052 

THUT ( I ) =0 . 

0053 

TPS  I T ( I ) =0. 

0054 

TSIGMT ( I ) =0. 

0055 

110 
c . 

CONTINUE 

\ 

\ 

-  48  -  ! 


# 
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C  Taps  rsad  area 
C 


0056 

200 

TYPE  190 

0057 

ACCEPT  19, ISTART, ISTOP 

0053 

IF  (ISTART  .EQ.  0)  ISTART  =  1 

0060 

IF  (ISTOP  .EQ.  0)  ISTOP  =  13000 

0062 

p 

ISTOP  =  ISTOP  +  1 

0063 

L 

DO  243,1  =  2531,2730 

0064 

243 

P 

IMPING ( I ) =0 

0065 

L 

209 

IF  (IGFLAG  .EQ.  IYES)  GO  TO  201 

0067 

CALL  REDTAPdUNIT,  IMPING,  I NRBYT,  I STATU) 

0063 

IF  ( ISTATU ( 1 )  .EQ.  IYES)  GO  TO  205 

0070 

CALL  MTSTAT ( I UN I T > 

0071 

IF  ( ISTATU (9)  .EQ.  IYES)  GQ  TO  209 

0073 

p 

GO  TO  209 

0074 

L 

205 

IF  ( IMPING (2)  .EQ.  ISTART)  GO  TO  220 

0076 

IFWD  =  ISTART  -  IMPINGI2) 

0077 

IFWD  =  IFWD  -  1 

0073 

IF  (IFWD  .EQ.  0)  GO  TO  209 

0080 

CALL  SPCTAP  (IUNIT, IFWD, ISTATU) 

0081 

IF  ( I STATU ( 1 )  .EQ.  INQ)  CALL  MTSTAT ( I UN 

0093 

p 

GO  TO  209 

0094 

L 

220 

p 

IF  ( IMPING (2)  .LE.  ISTOP)  GO  TO  204 

0096 

L 

209 

PAUSE  '  ***DONE***' 

0097 

233 

IHEADR (2!  =  0 

0039 

p 

IHEAD1 (2)  =  0 

0099 

L 

TYFE  151 

0090 

ACCEPT  12,  BEYOND 

0091 

IF  (BEYOND  .EQ.  YES)  GO  TO  110 

0093 

TYPE  15 

0094 

ACCEPT  12,  REWIND 

3095 

IF  (REWIND  .NE.  YES)  GO  TO  733 

0097 

CALL  REWTAP  ( IUNIT, ISTATU) 

309e 

IF  ( ISTATU ( 1 )  .EQ.  INO)  CALL  MTSTAT ( I UN i 

0100 

p 

GO  TO  110 

0101 

204 

CALL  REDTAP ( IUNIT, I WKSPC, I NRBYT, ISTATU) 

0102 

IF  ( ISTATU ( 1 )  .EQ.  IYES)  GO  TO  211 

0104 

CALL  MTSTAT (IUNIT) 

0105 

IF  ( ISTATU (9)  .EQ.  IYES)  GO  TO  208 

0107 

p 

GO  TO  204 

0109 

211 

IF  ( IWKSPC (2)  .NE.  IMPING (2) >  GO  TO  214 

0110 

P 

IF  ( IWKSPC (4)  .NE.  IMPING  <  4) >  GO  TO  214 

0112 

L 

201 

DO  217,1  =  1,2730 

0113 

217 

IMPING ( I )  =  IWKSPC ( I  i 

0114 

IGFLAG  =  INO 
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0115 

f 

GO  TO  204 

0116 

214 

IGFLAS  = 

IYES 

0 

0117 

c 

IF  ( IMPING (2)  .GT.  ISTQP)  GO  TO  208 

C 

C 

r 

Tape  block  setup  area 

0119 

300 

DO  301,1 

=  1,20 

* 

0120 

IHEADR ( I ) 

=  IHEADllI) 

0121 

301 

IHEAD1 (I) 

=  IMPING  ( I ) 

0122 

L 

DO  304,1 

=  i.NRCHNL 

0123 

FSISMA  < I ) 

=  FPS  Id)  »*2  -  FMU  ( I )  **2 

0124 

IF  (FSISMA ( I )  .LT.  0.)  FSIGMA(I)  =0. 

td 

0126 

304 

P 

FSIGMA ( I ) 

=  SORT (FSIGMA  ( I ) ) 

0127 

L 

DO  303,1 

=  1 , NRCHNL 

0123 

TSIGMA(I) 

=  TPS  Id)  **2  -  TMU  ( I )  **2 

0129 

IF  (TSIGMA ( I )  .LT.  0.)  TSIGMA(I)  =  0. 

0131 

303 

TSIGMA ( I ) 

=  SORT (TSIGMA( I ) ) 

0132 

C 

FRHQVG  = 

0. 

0133 

TRHOVG  = 

0. 

0134 

DO  305,1 

=  1 , INRDIF 

0135 

FRHOVG  = 

FRHOVG  +  FRHO(I) 

0136 

305 

TRHOVG  = 

TRHOVG  +  TRHO(I) 

<d 

0137 

TRHOVG  = 

TRHQVG/FNRDIF 

0138 

FRHOVG  = 

FRHQV8/FNRD1F 

0139 

TROD  IF  = 

TRHOVX  -  TRHOVG 

0140 

c 

FRQDIF  = 

FRHQVX  -  FRHOVG 

0141 

IF  < IHEADR (2)  .GE.  I3TART)  GO  TO  600 

0143 

c. . . . 

GO  TO  209 

C 

C  T  array  signal  detection  area 
C 


0144 

600  IF 

(TRHOVG  .GE.  RHQMIN) 

GQ 

TO 

623 

0146 

IF 

(TRHOVX  .GE.  RHOMIN) 

GO 

TO 

623 

0143 

IF 

(FRHOVG  .GE.  RHOMIN) 

GO 

TO 

623 

0150 

IF 

(FRHOVX  .GE.  RHOMIN) 

GO 

TO 

623 

0152 

IF 

(TRODIF  .GE.  DIFMIN) 

GO 

TO 

623 

0154 

IF 

(FRODIF  .GE.  DIFMIN) 

GO 

TO 

623 

0156 

GO 

TO  209 

*  c 

0157 
0158 
0159 
0160 
0161 

•  0162 

0163 
0164 


623  IIBKNR  =  IHEADR (2) 
JDAY  =  IHEADR (3) 
JHOUR  =  IHEADR (4) 
JSEC  *  IHEADR (5) 
IERRTO  =  IHEADR (17) 
IZERON  =  IHEADR (18) 
IOVRNS  =  IHEADR (19) 
IUNDRN  *  IHEADR (20) 


# 


50  - 
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C 

3165  JFLAG  =  I  ZERO 

3166  CALL  RTCLOK  ( JFLAG , AMONTH , JDAY , JHOUR , JM IN , JSEC ) 

0167  IPFLAG  *  INO 

0163  IEFLAS  *  INO 

C 

0169  IF  (ARRNBR  .EQ.  FOUR)  GO  TO  605 

0171  IF  ( ( TRHOVG  .GE.  RHQMIN) . OR. ( TROD  IF. GE. D IFM IN ) )  GO  TO  609 

3173  IF  (TRHQVX  .LT.  RHQMIN)  6Q  TQ  605 

0175  GO  TO  604 

0176  609  IF  ( IT3TAT  -  0)  604,663,606 

0177  606  IF  (TRHOVG. GE.RHOMIN)  GO  TO  604 

0179  663  IF  (TRODIF.LT. DIFM1N)  GO  TO  604 

0181  IF  (TVELOX  .LT.  VELMIN)  GO  TO  605 

0193  IF  (TVELOX  .GT.  VELMAX)  GO  TO  605 

C 

0195  604  IF  (STATS  .NE.  YES)  GO  TO  610 

3197  IEFLAG  =  IYES 

0198  PRINT  198 , JDAY , AMQNTH , J YEAR , JHOUR, JMIN, JSEC, 

4  IIBKNR, IERRTO, IZERON, IOVRNG, IUNDRN 
0189  IPFLAG  =  IYES 

0190  PRINT  191 , THREE, TRHO 

0191  DO  611,1  =  1 , NRCHNL 

0192  111=1*3 

0193  611  PRINT  135,111, ITMAX(I) ,ITMIN(I) ,TMU(I) ,TPSI (I) ,TSIGMA(I) 

C 

0194  610  IF  ((TRHQVX  .LT.  RHOMIN) .AND. (TRODIF.LT. DIFMIN) )  GO  TO  605 

0196  IF  (FTSPQX  -  0.)  605,605,614 

C 

0197  614  IF  (TVELOX  .LT.  VELMIN)  GO  TO  605 

0199  IF  (TVELOX  .GT.  VELMAX)  GO  TO  605 

0201  DO  630  1=1, NRCHNL 

0202  TMAXT ( I ) =TMAXT ( I ) +FLOAT ( ITMAX ( I ) ) 

0203  TMINT(I)=TMINT(I)*FLQAT(ITMIN(I>  > 

0204  TNUT ( I ) =TMUT ( I! *TMU(  I) 

0205  TPSIT(I)=TP5IT(I)+TPSI(I) 

0206  TSIGMT(I)=TSIGMT(I!+TSIGMA(I) 

3207  633  CONTINUE 

0208  KQUNT  =  KQUNT  +  l 

C 

0209  60S  IF  (ARRNBR  .EQ.  THREE)  GO  TO  239 

C . 

c 

C  F  array  signal  detection  area 

C 

0211  603  IDUM  =  IHEADR  (2)  -  3 

0212  IF  ( (FRHQVG  .GE.  RHOMIN) . OR. (FRODIF. GE. DIFMIN) )  GO  TO  621 

0214  IF  (FRHQVX  .LT.  RHOMIN)  GO  TO  239 

0216  GO  TO  602 

0217  621  IF  (IFSTAT  -  0)  602,664,603 

0213  608  IF  (FRHOVG. GE.RHOMIN)  GO  TO  602 

0220  664  IF  (FRODIF.LT. DIFMIN)  GO  TO  602 

0222  IF  (FVELOX  .LT.  VELMIN)  GO  TO  209 

0224  IF  (FVELOX  .GT.  VELMAX)  GO  TO  209 
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C 


0226 

602 

0228 

0230 

0231 

0232 

632 

0233 

0234 

0235 

616 

C 

0236 

615 

0238 

C 

0239 

619 

0241 

0243 

0244 

0245 

0246 

0247 

0248 

0249 

645 

0250 

0251 

C 

0252 

700 

0254 

0255 

0256 

0257 

0253 

0259 

0260 

3261 

0262 

3263 

3264 

3265 

701 

0266 

'02 

0263 

0269 

0270 

0271 

0272 

0273 

0274 

0275 

0276 

0277 

0279 

0279 

703 

C 


IF  (STATS  .NE.  YES)  SO  TO  615 

IF  (IEFLAG  .EQ.  IYES)  GO  TQ  632 

PRINT  198, JDAY.AMQNTH, JYEAR.JHQUR, JNIN, JSEC, 

Si  IIBKNR,  IERRTO,  IZERON,  IQVRNG,  IUNDRN 
IEFLAG  *  IYES 
PRINT  181 .FOUR, FRHQ 
DO  616,1  =  1 , NRCHNL 
111*1-1 

PRINT  185, III, IFHAX ( I) ,IFMIN(I> ,FMU(I> ,FPSI(I) .FSIGMA ( I ) 

IF  ( (FRHOVX  .LT.  RHOMIN) . AND. (FRQDIF.LT. DIFMIN) )  GO  TO  209 
IF  (FFSPQX  -  0.)  209,209,619 

IF  (FVELOX  .LT.  VELMIN)  GO  TO  209 
IF  (FVELOX  .GT.  VELMAX)  GO  TO  209 
DO  645  1=1, NRCHNL 
FMAXT ( I ) =FMAXT ( I ) +FLQAT ( IFMAX ( I ) ) 

FMINT  ( I )  =FM  I  NT  (D+FLOAT  (IFMIN(I)  ) 

FMUT(I)=FMUT(I)*FMU(I> 

FPSIT ( I ) *FPSIT ( I ) +FPSI ( I ) 

FSIGMT(I)=FSIGMT(I)+FSIGMA(I! 

CONTINUE 

KUONT  *  KUONT  +  1 
GO  TO  209 

IF  (ARRNBR  .EQ.  FOUR)  GO  TO  702 
PRINT  188, THREE, KOUNT 
CQUNT*FLOAT(KOUNT) 

DQ  701  1*1, NRCHNL 
TMAXT (I) =TMAXT (I) /COUNT 
TMINT(I)=T.MINT(I)/COUNT 
TMUT ( I ) =TMUT ( I ) /COUNT 
TPSIT(I) =TPSIT(I) /COUNT 
T3 1  GMT ( I ) =TSIGHT ( I ) /COUNT 
KTMAX*IFIX (TMAXT ( I) ) 

KTMIN=IFIX (TNINTl I) > 

PRINT  195 , THREE , KTMAX , KTMIN, TMUT ! I ) , TPS  I T ( I ! , TS I  GMT ( I ) 

CONTINUE 

IF  (ARRNBR  .EQ.  THREE)  50  TO  500 
PRINT  138, FOUR, KUONT 
CUQNT  =  FLOAT (KUONT) 

DO  703  1=1, NRCHNL 
FMAXT ( I ) *FMAXT ( I ) /CUONT 
FMINT(I)=FMINT (I) /CUQNT 
FNUT(I)*FMUT(I) /CUONT 

FPSIT ( I ) =FPSIT ( I ) /CUONT  ! 

FS IGMT ( I ) =F  SISMT(I) /CUONT 
KFMAX*IFIX(FMAXT(I) ) 

KFMIN=IFIX (FHINT(I) )  | 

PRINT  195, FOUR, KFMAX, KFMIN, FMUT ( I ) , FPS I T ( I ) , FS I SMT ( I )  1 

CONTINUE  | 

•  •  '  . .  < 
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C 

r 

FORMATS 

area 

0280 

L 

13 

FORMAT 

(/, '  STATS  Rev  4.2' ) 

0281 

12 

FORMAT 

<A1) 

0282 

13 

FORMAT 

( '  F,T  or  B?  ' ,4) 

0283 

14 

FORMAT 

(F6.2) 

0284 

15 

FORMAT 

('  Rewind  tape  ?  -'otherwise  EXIT!  >  ',4) 

0285 

151 

FORMAT 

('  Continue  in  this  file  on  tape?  ',4! 

0236 

16 

FORMAT 

('  Statistics?  ',4) 

0287 

171 

FORMAT 

( '  Minimum  CHANGE  IN  RHQ?  ' ,4) 

0288 

174 

FORMAT 

('  VELMIN?  ' , 4 ) 

0289 

175 

FORMAT 

C  VELMAX?  ',4) 

0290 

18 

FORMAT 

( '  Minimum  RHO?  ’ ,4) 

0291 

181 

FORMAT 

( 1 X , A 1 , 6F5. 25 

0292 

132 

FORMAT 

(’  Number  of  channels?  ',4) 

0293 

185 

FORMAT 

( IX , I 1 ,216 ,3F5. 0) 

0294 

188 

FORMAT 

C  AVERAGE  VALUES  OF  ',A1, '-ARRAY  STATISTICS  FOR  ', 

1 

K 

It 

14, '  BLOCKS') 

0295 

19 

FORMAT 

(216) 

0296 

190 

FORMAT 

(  '  Start ,  Stop:  ' , 4) 

0297 

193 

FORMAT 

('  Year?  ',4) 

0298 

193 

FORMAT 

(IX, 12, A3, 12, 14,': ',12,'  '  ,  12,  '  "UT  ' ,  '  BK', 14,416) 

C 


